]> git.saurik.com Git - wxWidgets.git/blob - src/motif/mdi.cpp
2nd attempt at MDI in wxMotif, using wxNotebook this time (still some probs).
[wxWidgets.git] / src / motif / mdi.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: mdi.cpp
3 // Purpose: MDI classes
4 // Author: Julian Smart
5 // Modified by:
6 // Created: 17/09/98
7 // RCS-ID: $Id$
8 // Copyright: (c) Julian Smart
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
20 #include <Xm/Xm.h>
21 #include <Xm/BulletinB.h>
22 #include <Xm/Form.h>
23 #include <Xm/MainW.h>
24 #include <Xm/RowColumn.h>
25 #include <Xm/CascadeBG.h>
26 #include <Xm/Text.h>
27 #include <Xm/PushBG.h>
28 #include <Xm/AtomMgr.h>
29 #include <Xm/Protocols.h>
30
31 #include "wx/motif/private.h"
32
33 extern wxList wxModelessWindows;
34
35 // Implemented in frame.cpp
36 extern void wxFrameFocusProc(Widget workArea, XtPointer clientData,
37 XmAnyCallbackStruct *cbs);
38
39 #define wxID_NOTEBOOK_CLIENT_AREA wxID_HIGHEST + 100
40
41 #if !USE_SHARED_LIBRARY
42 IMPLEMENT_DYNAMIC_CLASS(wxMDIParentFrame, wxFrame)
43 IMPLEMENT_DYNAMIC_CLASS(wxMDIChildFrame, wxFrame)
44 IMPLEMENT_DYNAMIC_CLASS(wxMDIClientWindow, wxNotebook)
45
46 BEGIN_EVENT_TABLE(wxMDIParentFrame, wxFrame)
47 EVT_SIZE(wxMDIParentFrame::OnSize)
48 EVT_ACTIVATE(wxMDIParentFrame::OnActivate)
49 EVT_SYS_COLOUR_CHANGED(wxMDIParentFrame::OnSysColourChanged)
50 END_EVENT_TABLE()
51
52 BEGIN_EVENT_TABLE(wxMDIClientWindow, wxNotebook)
53 EVT_SCROLL(wxMDIClientWindow::OnScroll)
54 EVT_NOTEBOOK_PAGE_CHANGED(wxID_NOTEBOOK_CLIENT_AREA, wxMDIClientWindow::OnPageChanged)
55 END_EVENT_TABLE()
56
57 #endif
58
59 // Parent frame
60
61 wxMDIParentFrame::wxMDIParentFrame()
62 {
63 m_clientWindow = (wxMDIClientWindow*) NULL;
64 m_activeChild = (wxMDIChildFrame*) NULL;
65 m_activeMenuBar = (wxMenuBar*) NULL;
66 }
67
68 bool wxMDIParentFrame::Create(wxWindow *parent,
69 wxWindowID id,
70 const wxString& title,
71 const wxPoint& pos,
72 const wxSize& size,
73 long style,
74 const wxString& name)
75 {
76 m_clientWindow = (wxMDIClientWindow*) NULL;
77 m_activeChild = (wxMDIChildFrame*) NULL;
78 m_activeMenuBar = (wxMenuBar*) NULL;
79
80 bool success = wxFrame::Create(parent, id, title, pos, size, style, name);
81 if (success)
82 {
83 // TODO: app cannot override OnCreateClient since
84 // wxMDIParentFrame::OnCreateClient will still be called
85 // (we're in the constructor). How to resolve?
86
87 m_clientWindow = OnCreateClient();
88
89 // Uses own style for client style
90 m_clientWindow->CreateClient(this, GetWindowStyleFlag());
91
92 int w, h;
93 GetClientSize(& w, & h);
94 m_clientWindow->SetSize(0, 0, w, h);
95 return TRUE;
96 }
97 else
98 return FALSE;
99 }
100
101 wxMDIParentFrame::~wxMDIParentFrame()
102 {
103 // Make sure we delete the client window last of all
104 RemoveChild(m_clientWindow);
105
106 DestroyChildren();
107
108 delete m_clientWindow;
109 m_clientWindow = NULL;
110 }
111
112 // Get size *available for subwindows* i.e. excluding menu bar.
113 void wxMDIParentFrame::GetClientSize(int *x, int *y) const
114 {
115 wxFrame::GetClientSize(x, y);
116 }
117
118 void wxMDIParentFrame::SetMenuBar(wxMenuBar *menu_bar)
119 {
120 m_frameMenuBar = menu_bar;
121
122 SetChildMenuBar((wxMDIChildFrame*) NULL);
123 }
124
125 void wxMDIParentFrame::OnSize(wxSizeEvent& event)
126 {
127 #if wxUSE_CONSTRAINTS
128 if (GetAutoLayout())
129 Layout();
130 #endif
131 int x = 0;
132 int y = 0;
133 int width, height;
134 GetClientSize(&width, &height);
135
136 if ( GetClientWindow() )
137 GetClientWindow()->SetSize(x, y, width, height);
138 }
139
140 void wxMDIParentFrame::OnActivate(wxActivateEvent& event)
141 {
142 // Do nothing
143 }
144
145 // Returns the active MDI child window
146 wxMDIChildFrame *wxMDIParentFrame::GetActiveChild() const
147 {
148 return m_activeChild;
149 }
150
151 // Create the client window class (don't Create the window,
152 // just return a new class)
153 wxMDIClientWindow *wxMDIParentFrame::OnCreateClient()
154 {
155 return new wxMDIClientWindow ;
156 }
157
158 // Set the child's menu into the parent frame
159 void wxMDIParentFrame::SetChildMenuBar(wxMDIChildFrame* child)
160 {
161 wxMenuBar* oldMenuBar = m_activeMenuBar;
162
163 if (child == (wxMDIChildFrame*) NULL) // No child: use parent frame
164 {
165 if (GetMenuBar() && (GetMenuBar() != m_activeMenuBar))
166 {
167 // if (m_activeMenuBar)
168 // m_activeMenuBar->DestroyMenuBar();
169
170 m_activeMenuBar = GetMenuBar();
171 m_activeMenuBar->CreateMenuBar(this);
172 /*
173 if (oldMenuBar && XtIsManaged((Widget) oldMenuBar->GetMainWidget()))
174 XtUnmanageChild((Widget) oldMenuBar->GetMainWidget());
175 */
176 if (oldMenuBar && oldMenuBar->GetMainWidget())
177 XtUnmapWidget((Widget) oldMenuBar->GetMainWidget());
178
179 }
180 }
181 else if (child->GetMenuBar() == (wxMenuBar*) NULL) // No child menu bar: use parent frame
182 {
183 if (GetMenuBar() && (GetMenuBar() != m_activeMenuBar))
184 {
185 // if (m_activeMenuBar)
186 // m_activeMenuBar->DestroyMenuBar();
187 m_activeMenuBar = GetMenuBar();
188 m_activeMenuBar->CreateMenuBar(this);
189 /*
190 if (oldMenuBar && XtIsManaged((Widget) oldMenuBar->GetMainWidget()))
191 XtUnmanageChild((Widget) oldMenuBar->GetMainWidget());
192 */
193 if (oldMenuBar && oldMenuBar->GetMainWidget())
194 XtUnmapWidget((Widget) oldMenuBar->GetMainWidget());
195 }
196 }
197 else // The child has a menubar
198 {
199 if (child->GetMenuBar() != m_activeMenuBar)
200 {
201 // if (m_activeMenuBar)
202 // m_activeMenuBar->DestroyMenuBar();
203
204 m_activeMenuBar = child->GetMenuBar();
205 m_activeMenuBar->CreateMenuBar(this);
206 /*
207 if (oldMenuBar && XtIsManaged((Widget) oldMenuBar->GetMainWidget()))
208 XtUnmanageChild((Widget) oldMenuBar->GetMainWidget());
209 */
210 if (oldMenuBar && oldMenuBar->GetMainWidget())
211 XtUnmapWidget((Widget) oldMenuBar->GetMainWidget());
212 }
213 }
214 }
215
216 // Redirect events to active child first
217 bool wxMDIParentFrame::ProcessEvent(wxEvent& event)
218 {
219 // Stops the same event being processed repeatedly
220 static wxEventType inEvent = wxEVT_NULL;
221 if (inEvent == event.GetEventType())
222 return FALSE;
223
224 inEvent = event.GetEventType();
225
226 bool res = FALSE;
227 if (m_activeChild && event.IsKindOf(CLASSINFO(wxCommandEvent)))
228 {
229 res = m_activeChild->GetEventHandler()->ProcessEvent(event);
230 }
231
232 if (!res)
233 res = GetEventHandler()->wxEvtHandler::ProcessEvent(event);
234
235 inEvent = wxEVT_NULL;
236
237 return res;
238 }
239
240 // Responds to colour changes, and passes event on to children.
241 void wxMDIParentFrame::OnSysColourChanged(wxSysColourChangedEvent& event)
242 {
243 // TODO
244
245 // Propagate the event to the non-top-level children
246 wxFrame::OnSysColourChanged(event);
247 }
248
249 // MDI operations
250 void wxMDIParentFrame::Cascade()
251 {
252 // TODO
253 }
254
255 void wxMDIParentFrame::Tile()
256 {
257 // TODO
258 }
259
260 void wxMDIParentFrame::ArrangeIcons()
261 {
262 // TODO
263 }
264
265 void wxMDIParentFrame::ActivateNext()
266 {
267 // TODO
268 }
269
270 void wxMDIParentFrame::ActivatePrevious()
271 {
272 // TODO
273 }
274
275 // Child frame
276
277 wxMDIChildFrame::wxMDIChildFrame()
278 {
279 m_mdiParentFrame = (wxMDIParentFrame*) NULL;
280 }
281
282 bool wxMDIChildFrame::Create(wxMDIParentFrame *parent,
283 wxWindowID id,
284 const wxString& title,
285 const wxPoint& pos,
286 const wxSize& size,
287 long style,
288 const wxString& name)
289 {
290 SetName(name);
291
292 m_backgroundColour = wxSystemSettings::GetSystemColour(wxSYS_COLOUR_APPWORKSPACE);
293 m_foregroundColour = *wxBLACK;
294 m_windowFont = wxSystemSettings::GetSystemFont(wxSYS_DEFAULT_GUI_FONT);
295
296 if ( id > -1 )
297 m_windowId = id;
298 else
299 m_windowId = (int)NewControlId();
300
301 wxMDIClientWindow* clientWindow = parent->GetClientWindow();
302
303 wxASSERT_MSG( (clientWindow != (wxWindow*) NULL), "Missing MDI client window.");
304
305 if (clientWindow) clientWindow->AddChild(this);
306
307 SetMDIParentFrame(parent);
308
309 int x = pos.x; int y = pos.y;
310 int width = size.x; int height = size.y;
311 if (width == -1)
312 width = 200; // TODO: give reasonable default
313 if (height == -1)
314 height = 200; // TODO: give reasonable default
315
316 // We're deactivating the old child
317 wxMDIChildFrame* oldActiveChild = parent->GetActiveChild();
318 if (oldActiveChild)
319 {
320 wxActivateEvent event(wxEVT_ACTIVATE, FALSE, oldActiveChild->GetId());
321 event.SetEventObject( oldActiveChild );
322 oldActiveChild->GetEventHandler()->ProcessEvent(event);
323 }
324
325 // This is the currently active child
326 parent->SetActiveChild((wxMDIChildFrame*) this);
327
328 // This time we'll try a bog-standard bulletin board for
329 // the 'frame'. A main window doesn't seem to work.
330
331 m_mainWidget = (WXWidget) XtVaCreateWidget("client",
332 xmBulletinBoardWidgetClass, (Widget) clientWindow->GetTopWidget(),
333 XmNmarginWidth, 0,
334 XmNmarginHeight, 0,
335 /*
336 XmNrightAttachment, XmATTACH_FORM,
337 XmNleftAttachment, XmATTACH_FORM,
338 XmNtopAttachment, XmATTACH_FORM,
339 XmNbottomAttachment, XmATTACH_FORM,
340 */
341 XmNresizePolicy, XmRESIZE_NONE,
342 NULL);
343
344 SetCanAddEventHandler(TRUE);
345 AttachWidget (parent, m_mainWidget, (WXWidget) NULL, pos.x, pos.y, size.x, size.y);
346
347 ChangeBackgroundColour();
348
349 // Old stuff
350 #if 0
351
352 m_frameWidget = (WXWidget) XtVaCreateManagedWidget("main_window",
353 xmMainWindowWidgetClass, (Widget) clientWindow->GetTopWidget(),
354 XmNresizePolicy, XmRESIZE_NONE,
355 NULL);
356
357 // TODO: make sure this doesn't cause problems.
358 // I think ~wxFrame will do the right thing since it deletes m_frameWidget,
359 // then sets the main widget to NULL.
360 m_mainWidget = m_frameWidget;
361
362 m_workArea = (WXWidget) XtVaCreateWidget("form",
363 xmFormWidgetClass, (Widget) m_frameWidget,
364 XmNresizePolicy, XmRESIZE_NONE,
365 NULL);
366
367 m_clientArea = (WXWidget) XtVaCreateWidget("client",
368 xmBulletinBoardWidgetClass, (Widget) m_workArea,
369 XmNmarginWidth, 0,
370 XmNmarginHeight, 0,
371 XmNrightAttachment, XmATTACH_FORM,
372 XmNleftAttachment, XmATTACH_FORM,
373 XmNtopAttachment, XmATTACH_FORM,
374 XmNbottomAttachment, XmATTACH_FORM,
375 // XmNresizePolicy, XmRESIZE_ANY,
376 NULL);
377
378 XtVaSetValues((Widget) m_frameWidget,
379 XmNworkWindow, (Widget) m_workArea,
380 NULL);
381
382 XtManageChild((Widget) m_clientArea);
383 XtManageChild((Widget) m_workArea);
384
385 wxASSERT_MSG ((wxWidgetHashTable->Get((long)m_workArea) == (wxObject*) NULL), "Widget table clash in frame.cpp") ;
386
387 wxAddWindowToTable((Widget) m_workArea, this);
388
389 XtTranslations ptr ;
390
391 XtOverrideTranslations((Widget) m_workArea,
392 ptr = XtParseTranslationTable("<Configure>: resize()"));
393
394 XtFree((char *)ptr);
395
396 XtAddCallback((Widget) m_workArea, XmNfocusCallback,
397 (XtCallbackProc)wxFrameFocusProc, (XtPointer)this);
398
399 XtManageChild((Widget) m_mainWidget);
400
401 if (x > -1)
402 XtVaSetValues((Widget) m_mainWidget, XmNx, x, NULL);
403 if (y > -1)
404 XtVaSetValues((Widget) m_mainWidget, XmNy, y, NULL);
405 if (width > -1)
406 XtVaSetValues((Widget) m_mainWidget, XmNwidth, width, NULL);
407 if (height > -1)
408 XtVaSetValues((Widget) m_mainWidget, XmNheight, height, NULL);
409
410 #endif
411
412 XtManageChild((Widget) m_mainWidget);
413
414 SetTitle(title);
415
416 clientWindow->AddPage(this, title, TRUE);
417 clientWindow->Refresh();
418
419 // Positions the toolbar and status bar -- but we don't have any.
420 // PreResize();
421
422 wxModelessWindows.Append(this);
423 return TRUE;
424 }
425
426
427 wxMDIChildFrame::~wxMDIChildFrame()
428 {
429 if (GetMDIParentFrame())
430 {
431 wxMDIParentFrame* parentFrame = GetMDIParentFrame();
432
433 if (parentFrame->GetActiveChild() == this)
434 parentFrame->SetActiveChild((wxMDIChildFrame*) NULL);
435 wxMDIClientWindow* clientWindow = parentFrame->GetClientWindow();
436
437 // Remove page if still there
438 if (clientWindow->RemovePage(this))
439 clientWindow->Refresh();
440
441 // Set the selection to the first remaining page
442 if (clientWindow->GetPageCount() > 0)
443 {
444 wxMDIChildFrame* child = (wxMDIChildFrame*) clientWindow->GetPage(0);
445 parentFrame->SetActiveChild(child);
446 parentFrame->SetChildMenuBar(child);
447 }
448 else
449 {
450 parentFrame->SetActiveChild((wxMDIChildFrame*) NULL);
451 parentFrame->SetChildMenuBar((wxMDIChildFrame*) NULL);
452 }
453 }
454 }
455
456 #if 0
457 // Implementation: intercept and act upon raise and lower commands.
458 void wxMDIChildFrame::OnRaise()
459 {
460 wxMDIParentFrame* parentFrame = (wxMDIParentFrame*) GetParent() ;
461 wxMDIChildFrame* oldActiveChild = parentFrame->GetActiveChild();
462 parentFrame->SetActiveChild(this);
463
464 if (oldActiveChild)
465 {
466 wxActivateEvent event(wxEVT_ACTIVATE, FALSE, oldActiveChild->GetId());
467 event.SetEventObject( oldActiveChild );
468 oldActiveChild->GetEventHandler()->ProcessEvent(event);
469 }
470
471 wxActivateEvent event(wxEVT_ACTIVATE, TRUE, this->GetId());
472 event.SetEventObject( this );
473 this->GetEventHandler()->ProcessEvent(event);
474 }
475
476 void wxMDIChildFrame::OnLower()
477 {
478 wxMDIParentFrame* parentFrame = (wxMDIParentFrame*) GetParent() ;
479 wxMDIChildFrame* oldActiveChild = parentFrame->GetActiveChild();
480
481 if (oldActiveChild == this)
482 {
483 wxActivateEvent event(wxEVT_ACTIVATE, FALSE, oldActiveChild->GetId());
484 event.SetEventObject( oldActiveChild );
485 oldActiveChild->GetEventHandler()->ProcessEvent(event);
486 }
487 // TODO: unfortunately we don't now know which is the top-most child,
488 // so make the active child NULL.
489 parentFrame->SetActiveChild((wxMDIChildFrame*) NULL);
490 }
491 #endif
492
493 // Set the client size (i.e. leave the calculation of borders etc.
494 // to wxWindows)
495 void wxMDIChildFrame::SetClientSize(int width, int height)
496 {
497 wxWindow::SetClientSize(width, height);
498 }
499
500 void wxMDIChildFrame::GetClientSize(int* width, int* height) const
501 {
502 wxWindow::GetSize(width, height);
503 }
504
505 void wxMDIChildFrame::SetSize(int x, int y, int width, int height, int sizeFlags)
506 {
507 wxWindow::SetSize(x, y, width, height, sizeFlags);
508 }
509
510 void wxMDIChildFrame::GetSize(int* width, int* height) const
511 {
512 wxWindow::GetSize(width, height);
513 }
514
515 void wxMDIChildFrame::GetPosition(int *x, int *y) const
516 {
517 wxWindow::GetPosition(x, y);
518 }
519
520 bool wxMDIChildFrame::Show(bool show)
521 {
522 m_visibleStatus = show; /* show-&-hide fix */
523 return wxWindow::Show(show);
524 }
525
526 void wxMDIChildFrame::SetMenuBar(wxMenuBar *menuBar)
527 {
528 // Don't create the underlying menubar yet; need to recreate
529 // it every time the child is activated.
530 m_frameMenuBar = menuBar;
531
532 // We make the assumption that if you're setting the menubar,
533 // this is the currently active child.
534 GetMDIParentFrame()->SetChildMenuBar(this);
535 }
536
537 // Set icon
538 void wxMDIChildFrame::SetIcon(const wxIcon& icon)
539 {
540 m_icon = icon;
541 if (m_icon.Ok())
542 {
543 /* TODO: doesn't work yet (crashes in XCopyArea)
544 Pixmap pixmap = (Pixmap) m_icon.GetPixmap();
545 m_mdiWindow->setPixmap(pixmap);
546 */
547 }
548 }
549
550 void wxMDIChildFrame::SetTitle(const wxString& title)
551 {
552 m_title = title;
553 // TODO: set parent frame title
554 }
555
556 // MDI operations
557 void wxMDIChildFrame::Maximize()
558 {
559 // TODO
560 }
561
562 void wxMDIChildFrame::Iconize(bool iconize)
563 {
564 // TODO
565 }
566
567 bool wxMDIChildFrame::IsIconized() const
568 {
569 return FALSE;
570 }
571
572 void wxMDIChildFrame::Restore()
573 {
574 // TODO
575 }
576
577 void wxMDIChildFrame::Activate()
578 {
579 // TODO
580 }
581
582 void wxMDIChildFrame::CaptureMouse()
583 {
584 wxWindow::CaptureMouse();
585 }
586
587 void wxMDIChildFrame::ReleaseMouse()
588 {
589 wxWindow::ReleaseMouse();
590 }
591
592 void wxMDIChildFrame::Raise()
593 {
594 wxWindow::Raise();
595 }
596
597 void wxMDIChildFrame::Lower(void)
598 {
599 wxWindow::Raise();
600 }
601
602 void wxMDIChildFrame::SetSizeHints(int WXUNUSED(minW), int WXUNUSED(minH), int WXUNUSED(maxW), int WXUNUSED(maxH), int WXUNUSED(incW), int WXUNUSED(incH))
603 {
604 }
605
606 // Client window
607
608 wxMDIClientWindow::wxMDIClientWindow()
609 {
610 }
611
612 wxMDIClientWindow::~wxMDIClientWindow()
613 {
614 // By the time this destructor is called, the child frames will have been
615 // deleted and removed from the notebook/client window.
616 DestroyChildren();
617
618 m_mainWidget = (WXWidget) 0;
619 }
620
621 bool wxMDIClientWindow::CreateClient(wxMDIParentFrame *parent, long style)
622 {
623 // m_windowParent = parent;
624 // m_backgroundColour = wxSystemSettings::GetSystemColour(wxSYS_COLOUR_APPWORKSPACE);
625
626 return wxNotebook::Create(parent, wxID_NOTEBOOK_CLIENT_AREA, wxPoint(0, 0), wxSize(100, 100), 0);
627 }
628
629 void wxMDIClientWindow::SetSize(int x, int y, int width, int height, int sizeFlags)
630 {
631 wxWindow::SetSize(x, y, width, height, sizeFlags);
632 }
633
634 void wxMDIClientWindow::SetClientSize(int width, int height)
635 {
636 wxWindow::SetClientSize(width, height);
637 }
638
639 void wxMDIClientWindow::GetClientSize(int *width, int *height) const
640 {
641 wxWindow::GetClientSize(width, height);
642 }
643
644 void wxMDIClientWindow::GetSize(int *width, int *height) const
645 {
646 wxWindow::GetSize(width, height);
647 }
648
649 void wxMDIClientWindow::GetPosition(int *x, int *y) const
650 {
651 wxWindow::GetPosition(x, y);
652 }
653
654 // Explicitly call default scroll behaviour
655 void wxMDIClientWindow::OnScroll(wxScrollEvent& event)
656 {
657 Default(); // Default processing
658 }
659
660 void wxMDIClientWindow::OnPageChanged(wxNotebookEvent& event)
661 {
662 // Notify child that it has been activated
663 if (event.GetOldSelection() != -1)
664 {
665 wxMDIChildFrame* oldChild = (wxMDIChildFrame*) GetPage(event.GetOldSelection());
666 if (oldChild)
667 {
668 wxActivateEvent event(wxEVT_ACTIVATE, FALSE, oldChild->GetId());
669 event.SetEventObject( oldChild );
670 oldChild->GetEventHandler()->ProcessEvent(event);
671 }
672 }
673 wxMDIChildFrame* activeChild = (wxMDIChildFrame*) GetPage(event.GetSelection());
674 if (activeChild)
675 {
676 wxActivateEvent event(wxEVT_ACTIVATE, TRUE, activeChild->GetId());
677 event.SetEventObject( activeChild );
678 activeChild->GetEventHandler()->ProcessEvent(event);
679
680 if (activeChild->GetMDIParentFrame())
681 {
682 activeChild->GetMDIParentFrame()->SetActiveChild(activeChild);
683 activeChild->GetMDIParentFrame()->SetChildMenuBar(activeChild);
684 }
685 }
686 event.Skip();
687 }