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