Order fix.
[wxWidgets.git] / src / mac / carbon / mdi.cpp
0 / 382 (  0%)
CommitLineData
1/////////////////////////////////////////////////////////////////////////////
2// Name: mdi.cpp
3// Purpose: MDI classes
4// Author: Stefan Csomor
5// Modified by:
6// Created: 1998-01-01
7// RCS-ID: $Id$
8// Copyright: (c) Stefan Csomor
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
11
12#ifdef __GNUG__
13#pragma implementation "mdi.h"
14#endif
15
16#include "wx/mdi.h"
17#include "wx/menu.h"
18#include "wx/settings.h"
19#include "wx/log.h"
20
21#include "wx/mac/private.h"
22#include "wx/mac/uma.h"
23
24extern wxWindowList wxModelessWindows;
25
26#if !USE_SHARED_LIBRARY
27IMPLEMENT_DYNAMIC_CLASS(wxMDIParentFrame, wxFrame)
28IMPLEMENT_DYNAMIC_CLASS(wxMDIChildFrame, wxFrame)
29IMPLEMENT_DYNAMIC_CLASS(wxMDIClientWindow, wxWindow)
30
31BEGIN_EVENT_TABLE(wxMDIParentFrame, wxFrame)
32 EVT_ACTIVATE(wxMDIParentFrame::OnActivate)
33 EVT_SYS_COLOUR_CHANGED(wxMDIParentFrame::OnSysColourChanged)
34END_EVENT_TABLE()
35
36BEGIN_EVENT_TABLE(wxMDIClientWindow, wxWindow)
37 EVT_SCROLL(wxMDIClientWindow::OnScroll)
38END_EVENT_TABLE()
39
40#endif
41
42static const int IDM_WINDOWTILE = 4001;
43static const int IDM_WINDOWTILEHOR = 4001;
44static const int IDM_WINDOWCASCADE = 4002;
45static const int IDM_WINDOWICONS = 4003;
46static const int IDM_WINDOWNEXT = 4004;
47static const int IDM_WINDOWTILEVERT = 4005;
48static const int IDM_WINDOWPREV = 4006;
49
50// This range gives a maximum of 500 MDI children. Should be enough :-)
51static const int wxFIRST_MDI_CHILD = 4100;
52static const int wxLAST_MDI_CHILD = 4600;
53
54// Status border dimensions
55static const int wxTHICK_LINE_BORDER = 3;
56
57// Parent frame
58
59wxMDIParentFrame::wxMDIParentFrame()
60{
61 m_clientWindow = NULL;
62 m_currentChild = NULL;
63 m_windowMenu = (wxMenu*) NULL;
64 m_parentFrameActive = TRUE;
65}
66
67bool wxMDIParentFrame::Create(wxWindow *parent,
68 wxWindowID id,
69 const wxString& title,
70 const wxPoint& pos,
71 const wxSize& size,
72 long style,
73 const wxString& name)
74{
75 m_clientWindow = NULL;
76 m_currentChild = NULL;
77
78 // this style can be used to prevent a window from having the standard MDI
79 // "Window" menu
80 if ( style & wxFRAME_NO_WINDOW_MENU )
81 {
82 m_windowMenu = (wxMenu *)NULL;
83 style -= wxFRAME_NO_WINDOW_MENU ;
84 }
85 else // normal case: we have the window menu, so construct it
86 {
87 m_windowMenu = new wxMenu;
88
89 m_windowMenu->Append(IDM_WINDOWCASCADE, wxT("&Cascade"));
90 m_windowMenu->Append(IDM_WINDOWTILEHOR, wxT("Tile &Horizontally"));
91 m_windowMenu->Append(IDM_WINDOWTILEVERT, wxT("Tile &Vertically"));
92 m_windowMenu->AppendSeparator();
93 m_windowMenu->Append(IDM_WINDOWICONS, wxT("&Arrange Icons"));
94 m_windowMenu->Append(IDM_WINDOWNEXT, wxT("&Next"));
95 }
96
97 wxFrame::Create( parent , id , title , pos , size , style , name ) ;
98 m_parentFrameActive = TRUE;
99
100 OnCreateClient();
101
102 return TRUE;
103}
104
105wxMDIParentFrame::~wxMDIParentFrame()
106{
107 DestroyChildren();
108 // already deleted by DestroyChildren()
109 m_clientWindow = NULL ;
110
111 delete m_windowMenu;
112}
113
114
115void wxMDIParentFrame::SetMenuBar(wxMenuBar *menu_bar)
116{
117 wxFrame::SetMenuBar( menu_bar ) ;
118}
119
120void wxMDIParentFrame::MacActivate(long timestamp, bool activating)
121{
122 wxLogDebug(wxT("MDI PARENT=%p MacActivate(0x%08lx,%s)"),this,timestamp,activating?wxT("ACTIV"):wxT("deact"));
123 if(activating)
124 {
125 if(s_macDeactivateWindow && s_macDeactivateWindow->GetParent()==this)
126 {
127 wxLogDebug(wxT("child had been scheduled for deactivation, rehighlighting"));
128 UMAHighlightAndActivateWindow((WindowRef)s_macDeactivateWindow->MacGetWindowRef(), true);
129 wxLogDebug(wxT("done highliting child"));
130 s_macDeactivateWindow = NULL;
131 }
132 else if(s_macDeactivateWindow == this)
133 {
134 wxLogDebug(wxT("Avoided deactivation/activation of this=%p"), this);
135 s_macDeactivateWindow = NULL;
136 }
137 else // window to deactivate is NULL or is not us or one of our kids
138 {
139 // activate kid instead
140 if(m_currentChild)
141 m_currentChild->MacActivate(timestamp,activating);
142 else
143 wxFrame::MacActivate(timestamp,activating);
144 }
145 }
146 else
147 {
148 // We were scheduled for deactivation, and now we do it.
149 if(s_macDeactivateWindow==this)
150 {
151 s_macDeactivateWindow = NULL;
152 if(m_currentChild)
153 m_currentChild->MacActivate(timestamp,activating);
154 wxFrame::MacActivate(timestamp,activating);
155 }
156 else // schedule ourselves for deactivation
157 {
158 if(s_macDeactivateWindow)
159 wxLogDebug(wxT("window=%p SHOULD have been deactivated, oh well!"),s_macDeactivateWindow);
160 wxLogDebug(wxT("Scheduling delayed MDI Parent deactivation"));
161 s_macDeactivateWindow = this;
162 }
163 }
164}
165
166void wxMDIParentFrame::OnActivate(wxActivateEvent& event)
167{
168 event.Skip();
169}
170
171// Returns the active MDI child window
172wxMDIChildFrame *wxMDIParentFrame::GetActiveChild() const
173{
174 return m_currentChild ;
175}
176
177// Create the client window class (don't Create the window,
178// just return a new class)
179wxMDIClientWindow *wxMDIParentFrame::OnCreateClient()
180{
181 m_clientWindow = new wxMDIClientWindow( this );
182 return m_clientWindow;
183}
184
185// Responds to colour changes, and passes event on to children.
186void wxMDIParentFrame::OnSysColourChanged(wxSysColourChangedEvent& event)
187{
188 // TODO
189
190 // Propagate the event to the non-top-level children
191 wxFrame::OnSysColourChanged(event);
192}
193
194// MDI operations
195void wxMDIParentFrame::Cascade()
196{
197 // TODO
198}
199
200void wxMDIParentFrame::Tile()
201{
202 // TODO
203}
204
205void wxMDIParentFrame::ArrangeIcons()
206{
207 // TODO
208}
209
210void wxMDIParentFrame::ActivateNext()
211{
212 // TODO
213}
214
215void wxMDIParentFrame::ActivatePrevious()
216{
217 // TODO
218}
219
220bool wxMDIParentFrame::Show( bool show )
221{
222 // don't really show the MDI frame unless it has any children other than
223 // MDI children as it is pretty useless in this case
224
225 if ( show )
226 {
227 // TODO: check for other children
228 Move(-10000, -10000);
229 }
230
231 if ( !wxFrame::Show(show) )
232 return false;
233
234 return true;
235}
236
237// Child frame
238
239wxMDIChildFrame::wxMDIChildFrame()
240{
241 Init() ;
242}
243void wxMDIChildFrame::Init()
244{
245}
246
247bool wxMDIChildFrame::Create(wxMDIParentFrame *parent,
248 wxWindowID id,
249 const wxString& title,
250 const wxPoint& pos,
251 const wxSize& size,
252 long style,
253 const wxString& name)
254{
255 SetName(name);
256
257 if ( id > -1 )
258 m_windowId = id;
259 else
260 m_windowId = (int)NewControlId();
261
262 if (parent) parent->AddChild(this);
263
264 MacCreateRealWindow( title, pos , size , MacRemoveBordersFromStyle(style) , name ) ;
265
266 SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_APPWORKSPACE));
267
268 wxModelessWindows.Append(this);
269 return FALSE;
270}
271
272wxMDIChildFrame::~wxMDIChildFrame()
273{
274 wxMDIParentFrame *mdiparent = wxDynamicCast(m_parent, wxMDIParentFrame);
275 wxASSERT(mdiparent);
276 if(mdiparent->m_currentChild == this)
277 mdiparent->m_currentChild = NULL;
278 DestroyChildren();
279}
280
281void wxMDIChildFrame::SetMenuBar(wxMenuBar *menu_bar)
282{
283 return wxFrame::SetMenuBar( menu_bar ) ;
284}
285
286void wxMDIChildFrame::MacActivate(long timestamp, bool activating)
287{
288 wxLogDebug(wxT("MDI child=%p MacActivate(0x%08lx,%s)"),this,timestamp,activating?wxT("ACTIV"):wxT("deact"));
289 wxMDIParentFrame *mdiparent = wxDynamicCast(m_parent, wxMDIParentFrame);
290 wxASSERT(mdiparent);
291 if(activating)
292 {
293 if(s_macDeactivateWindow == m_parent)
294 {
295 wxLogDebug(wxT("parent had been scheduled for deactivation, rehighlighting"));
296 UMAHighlightAndActivateWindow((WindowRef)s_macDeactivateWindow->MacGetWindowRef(), true);
297 wxLogDebug(wxT("done highliting parent"));
298 s_macDeactivateWindow = NULL;
299 }
300 else if((mdiparent->m_currentChild==this) || !s_macDeactivateWindow)
301 mdiparent->wxFrame::MacActivate(timestamp,activating);
302
303 if(mdiparent->m_currentChild && mdiparent->m_currentChild!=this)
304 mdiparent->m_currentChild->wxFrame::MacActivate(timestamp,false);
305 mdiparent->m_currentChild = this;
306
307 if(s_macDeactivateWindow==this)
308 {
309 wxLogDebug(wxT("Avoided deactivation/activation of this=%p"),this);
310 s_macDeactivateWindow=NULL;
311 }
312 else
313 wxFrame::MacActivate(timestamp, activating);
314 }
315 else
316 {
317 // We were scheduled for deactivation, and now we do it.
318 if(s_macDeactivateWindow==this)
319 {
320 s_macDeactivateWindow = NULL;
321 wxFrame::MacActivate(timestamp,activating);
322 if(mdiparent->m_currentChild==this)
323 mdiparent->wxFrame::MacActivate(timestamp,activating);
324 }
325 else // schedule ourselves for deactivation
326 {
327 if(s_macDeactivateWindow)
328 wxLogDebug(wxT("window=%p SHOULD have been deactivated, oh well!"),s_macDeactivateWindow);
329 wxLogDebug(wxT("Scheduling delayed deactivation"));
330 s_macDeactivateWindow = this;
331 }
332 }
333}
334
335// MDI operations
336void wxMDIChildFrame::Maximize()
337{
338 wxFrame::Maximize() ;
339}
340
341void wxMDIChildFrame::Restore()
342{
343 wxFrame::Restore() ;
344}
345
346void wxMDIChildFrame::Activate()
347{
348}
349
350//-----------------------------------------------------------------------------
351// wxMDIClientWindow
352//-----------------------------------------------------------------------------
353
354wxMDIClientWindow::wxMDIClientWindow()
355{
356}
357
358wxMDIClientWindow::~wxMDIClientWindow()
359{
360 DestroyChildren();
361}
362
363bool wxMDIClientWindow::CreateClient(wxMDIParentFrame *parent, long style)
364{
365 if ( !wxWindow::Create(parent, wxID_ANY, wxDefaultPosition, wxDefaultSize, style))
366 return FALSE;
367
368 wxModelessWindows.Append(this);
369 return TRUE;
370}
371
372// Get size *available for subwindows* i.e. excluding menu bar.
373void wxMDIClientWindow::DoGetClientSize(int *x, int *y) const
374{
375 wxDisplaySize( x , y ) ;
376}
377
378// Explicitly call default scroll behaviour
379void wxMDIClientWindow::OnScroll(wxScrollEvent& event)
380{
381}
382