]> git.saurik.com Git - wxWidgets.git/blob - src/common/docmdi.cpp
fixed 3 infinite loops -- the person who tested this code must have had a lot of...
[wxWidgets.git] / src / common / docmdi.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: docmdi.cpp
3 // Purpose: Frame classes for MDI document/view applications
4 // Author: Julian Smart
5 // Modified by:
6 // Created: 01/02/97
7 // RCS-ID: $Id$
8 // Copyright: (c) Julian Smart
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 #ifdef __GNUG__
13 #pragma implementation "docmdi.h"
14 #endif
15
16 // For compilers that support precompilation, includes "wx.h".
17 #include "wx/wxprec.h"
18
19 #ifdef __BORLANDC__
20 #pragma hdrstop
21 #endif
22
23 #if wxUSE_MDI_ARCHITECTURE && wxUSE_DOC_VIEW_ARCHITECTURE
24
25 #include "wx/docmdi.h"
26
27 /*
28 * Docview MDI parent frame
29 */
30
31 IMPLEMENT_CLASS(wxDocMDIParentFrame, wxMDIParentFrame)
32
33 BEGIN_EVENT_TABLE(wxDocMDIParentFrame, wxMDIParentFrame)
34 EVT_MENU(wxID_EXIT, wxDocMDIParentFrame::OnExit)
35 EVT_MENU_RANGE(wxID_FILE1, wxID_FILE9, wxDocMDIParentFrame::OnMRUFile)
36 EVT_CLOSE(wxDocMDIParentFrame::OnCloseWindow)
37 END_EVENT_TABLE()
38
39 wxDocMDIParentFrame::wxDocMDIParentFrame(wxDocManager *manager, wxFrame *frame, wxWindowID id, const wxString& title,
40 const wxPoint& pos, const wxSize& size, long style, const wxString& name):
41 wxMDIParentFrame(frame, id, title, pos, size, style, name)
42 {
43 m_docManager = manager;
44 }
45
46 void wxDocMDIParentFrame::OnExit(wxCommandEvent& WXUNUSED(event))
47 {
48 Close();
49 }
50
51 void wxDocMDIParentFrame::OnMRUFile(wxCommandEvent& event)
52 {
53 wxString f(m_docManager->GetHistoryFile(event.GetId() - wxID_FILE1));
54 if (f != wxT(""))
55 (void)m_docManager->CreateDocument(f, wxDOC_SILENT);
56 }
57
58 // Extend event processing to search the view's event table
59 bool wxDocMDIParentFrame::ProcessEvent(wxEvent& event)
60 {
61 // Try the document manager, then do default processing
62 if (!m_docManager || !m_docManager->ProcessEvent(event))
63 return wxEvtHandler::ProcessEvent(event);
64 else
65 return TRUE;
66 }
67
68 void wxDocMDIParentFrame::OnCloseWindow(wxCloseEvent& event)
69 {
70 if (m_docManager->Clear(!event.CanVeto()))
71 {
72 this->Destroy();
73 }
74 else
75 event.Veto();
76 }
77
78
79 /*
80 * Default document child frame for MDI children
81 */
82
83 IMPLEMENT_CLASS(wxDocMDIChildFrame, wxMDIChildFrame)
84
85 BEGIN_EVENT_TABLE(wxDocMDIChildFrame, wxMDIChildFrame)
86 EVT_ACTIVATE(wxDocMDIChildFrame::OnActivate)
87 EVT_CLOSE(wxDocMDIChildFrame::OnCloseWindow)
88 END_EVENT_TABLE()
89
90 wxDocMDIChildFrame::wxDocMDIChildFrame(wxDocument *doc, wxView *view, wxMDIParentFrame *frame, wxWindowID id,
91 const wxString& title, const wxPoint& pos, const wxSize& size, long style, const wxString& name):
92 wxMDIChildFrame(frame, id, title, pos, size, style, name)
93 {
94 m_childDocument = doc;
95 m_childView = view;
96 if (view)
97 view->SetFrame(this);
98 }
99
100 wxDocMDIChildFrame::~wxDocMDIChildFrame(void)
101 {
102 m_childView = (wxView *) NULL;
103 }
104
105 // Extend event processing to search the view's event table
106 bool wxDocMDIChildFrame::ProcessEvent(wxEvent& event)
107 {
108 static wxEvent *ActiveEvent = NULL;
109
110 // Break recursion loops
111 if (ActiveEvent == &event)
112 return FALSE;
113
114 ActiveEvent = &event;
115
116 bool ret;
117 if ( !m_childView || ! m_childView->ProcessEvent(event) )
118 {
119 // Only hand up to the parent if it's a menu command
120 if (!event.IsKindOf(CLASSINFO(wxCommandEvent)) || !GetParent() || !GetParent()->ProcessEvent(event))
121 ret = wxEvtHandler::ProcessEvent(event);
122 else
123 ret = TRUE;
124 }
125 else
126 ret = TRUE;
127
128 ActiveEvent = NULL;
129 return ret;
130 }
131
132 void wxDocMDIChildFrame::OnActivate(wxActivateEvent& event)
133 {
134 wxMDIChildFrame::OnActivate(event);
135
136 if (event.GetActive() && m_childView)
137 m_childView->Activate(event.GetActive());
138 }
139
140 void wxDocMDIChildFrame::OnCloseWindow(wxCloseEvent& event)
141 {
142 // Close view but don't delete the frame while doing so!
143 // ...since it will be deleted by wxWindows if we return TRUE.
144 if (m_childView)
145 {
146 bool ans = FALSE;
147 if (!event.CanVeto())
148 ans = TRUE; // Must delete.
149 else
150 ans = m_childView->Close(FALSE); // FALSE means don't delete associated window
151
152 if (ans)
153 {
154 m_childView->Activate(FALSE);
155 delete m_childView;
156 m_childView = (wxView *) NULL;
157 m_childDocument = (wxDocument *) NULL;
158
159 this->Destroy();
160 }
161 else
162 event.Veto();
163 }
164 else
165 event.Veto();
166 }
167
168 #endif
169 // wxUSE_DOC_VIEW_ARCHITECTURE
170