]> git.saurik.com Git - wxWidgets.git/blob - src/motif/frame.cpp
Removed some unnecessary bitmaps; other minor changes
[wxWidgets.git] / src / motif / frame.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: frame.cpp
3 // Purpose: wxFrame
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 "frame.h"
14 #endif
15
16 #include "wx/frame.h"
17 #include "wx/statusbr.h"
18 #include "wx/toolbar.h"
19 #include "wx/menuitem.h"
20 #include "wx/menu.h"
21 #include "wx/dcclient.h"
22 #include "wx/dialog.h"
23 #include "wx/settings.h"
24 #include "wx/app.h"
25 #include "wx/utils.h"
26
27 #if defined(__ultrix) || defined(__sgi)
28 #include <Xm/Frame.h>
29 #endif
30
31 #include <Xm/Xm.h>
32 #include <X11/Shell.h>
33 #if XmVersion >= 1002
34 #include <Xm/XmAll.h>
35 #else
36 #include <Xm/Frame.h>
37 #endif
38 #include <Xm/MwmUtil.h>
39 #include <Xm/BulletinB.h>
40 #include <Xm/Form.h>
41 #include <Xm/MainW.h>
42 #include <Xm/RowColumn.h>
43 #include <Xm/Label.h>
44 #include <Xm/AtomMgr.h>
45 #include <Xm/LabelG.h>
46 #include <Xm/Frame.h>
47 #if XmVersion > 1000
48 #include <Xm/Protocols.h>
49 #endif
50
51 #include "wx/motif/private.h"
52
53 void wxCloseFrameCallback(Widget, XtPointer, XmAnyCallbackStruct *cbs);
54 void wxFrameFocusProc(Widget workArea, XtPointer clientData,
55 XmAnyCallbackStruct *cbs);
56 static void wxFrameMapProc(Widget frameShell, XtPointer clientData,
57 XCrossingEvent * event);
58
59 extern wxList wxModelessWindows;
60 extern wxList wxPendingDelete;
61
62 // TODO: this should be tidied so that any frame can be the
63 // top frame
64 static bool wxTopLevelUsed = FALSE;
65
66 #if !USE_SHARED_LIBRARY
67 BEGIN_EVENT_TABLE(wxFrame, wxWindow)
68 EVT_SIZE(wxFrame::OnSize)
69 EVT_ACTIVATE(wxFrame::OnActivate)
70 EVT_MENU_HIGHLIGHT_ALL(wxFrame::OnMenuHighlight)
71 EVT_SYS_COLOUR_CHANGED(wxFrame::OnSysColourChanged)
72 EVT_IDLE(wxFrame::OnIdle)
73 EVT_CLOSE(wxFrame::OnCloseWindow)
74 END_EVENT_TABLE()
75
76 IMPLEMENT_DYNAMIC_CLASS(wxFrame, wxWindow)
77 #endif
78
79 #if wxUSE_NATIVE_STATUSBAR
80 bool wxFrame::m_useNativeStatusBar = TRUE;
81 #else
82 bool wxFrame::m_useNativeStatusBar = FALSE;
83 #endif
84
85 wxFrame::wxFrame()
86 {
87 m_frameToolBar = NULL ;
88 m_frameMenuBar = NULL;
89 m_frameStatusBar = NULL;
90
91 m_windowParent = NULL;
92 m_iconized = FALSE;
93
94 //// Motif-specific
95 m_frameShell = (WXWidget) NULL;
96 m_frameWidget = (WXWidget) NULL;;
97 m_workArea = (WXWidget) NULL;;
98 m_clientArea = (WXWidget) NULL;;
99 m_visibleStatus = TRUE;
100 m_title = "";
101 }
102
103 bool wxFrame::Create(wxWindow *parent,
104 wxWindowID id,
105 const wxString& title,
106 const wxPoint& pos,
107 const wxSize& size,
108 long style,
109 const wxString& name)
110 {
111 if (!parent)
112 wxTopLevelWindows.Append(this);
113
114 SetName(name);
115
116 m_windowStyle = style;
117 m_frameMenuBar = NULL;
118 m_frameToolBar = NULL ;
119 m_frameStatusBar = NULL;
120
121 //// Motif-specific
122 m_frameShell = (WXWidget) NULL;
123 m_frameWidget = (WXWidget) NULL;;
124 m_workArea = (WXWidget) NULL;;
125 m_clientArea = (WXWidget) NULL;;
126 m_visibleStatus = TRUE;
127 m_title = "";
128
129 m_backgroundColour = wxSystemSettings::GetSystemColour(wxSYS_COLOUR_APPWORKSPACE);
130 m_foregroundColour = *wxBLACK;
131 m_windowFont = wxSystemSettings::GetSystemFont(wxSYS_DEFAULT_GUI_FONT);
132
133 if ( id > -1 )
134 m_windowId = id;
135 else
136 m_windowId = (int)NewControlId();
137
138 if (parent) parent->AddChild(this);
139
140 wxModelessWindows.Append(this);
141
142 int x = pos.x; int y = pos.y;
143 int width = size.x; int height = size.y;
144
145 if (wxTopLevelUsed)
146 // Change suggested by Matthew Flatt
147 m_frameShell = (WXWidget) XtAppCreateShell(name, wxTheApp->GetClassName(), topLevelShellWidgetClass, (Display*) wxGetDisplay(), NULL, 0);
148 else
149 {
150 m_frameShell = wxTheApp->GetTopLevelWidget();
151 wxTopLevelUsed = TRUE;
152 }
153
154 XtVaSetValues((Widget) m_frameShell,
155 // Allows menu to resize
156 XmNallowShellResize, True,
157 XmNdeleteResponse, XmDO_NOTHING,
158 XmNmappedWhenManaged, False,
159 XmNiconic, (style & wxICONIZE) ? TRUE : FALSE,
160 NULL);
161
162 if (!title.IsNull())
163 XtVaSetValues((Widget) m_frameShell,
164 XmNtitle, (const char*) title,
165 NULL);
166
167 m_frameWidget = (WXWidget) XtVaCreateManagedWidget("main_window",
168 xmMainWindowWidgetClass, (Widget) m_frameShell,
169 XmNresizePolicy, XmRESIZE_NONE,
170 NULL);
171
172 m_workArea = (WXWidget) XtVaCreateWidget("form",
173 xmFormWidgetClass, (Widget) m_frameWidget,
174 XmNresizePolicy, XmRESIZE_NONE,
175 NULL);
176
177 m_clientArea = (WXWidget) XtVaCreateWidget("client",
178 xmBulletinBoardWidgetClass, (Widget) m_workArea,
179 XmNmarginWidth, 0,
180 XmNmarginHeight, 0,
181 XmNrightAttachment, XmATTACH_FORM,
182 XmNleftAttachment, XmATTACH_FORM,
183 XmNtopAttachment, XmATTACH_FORM,
184 XmNbottomAttachment, XmATTACH_FORM,
185 // XmNresizePolicy, XmRESIZE_ANY,
186 NULL);
187
188 XtVaSetValues((Widget) m_frameWidget,
189 XmNworkWindow, (Widget) m_workArea,
190 NULL);
191
192
193 XtManageChild((Widget) m_clientArea);
194 XtManageChild((Widget) m_workArea);
195
196 wxASSERT_MSG ((wxWidgetHashTable->Get((long)m_workArea) == (wxObject*) NULL), "Widget table clash in frame.cpp") ;
197
198 wxAddWindowToTable((Widget) m_workArea, this);
199
200 XtTranslations ptr ;
201
202 XtOverrideTranslations((Widget) m_workArea,
203 ptr = XtParseTranslationTable("<Configure>: resize()"));
204
205 XtFree((char *)ptr);
206
207 XtAddCallback((Widget) m_workArea, XmNfocusCallback,
208 (XtCallbackProc)wxFrameFocusProc, (XtPointer)this);
209
210 /* Part of show-&-hide fix */
211 XtAddEventHandler((Widget) m_frameShell, StructureNotifyMask,
212 False, (XtEventHandler)wxFrameMapProc,
213 (XtPointer)m_workArea);
214
215 if (x > -1)
216 XtVaSetValues((Widget) m_frameShell, XmNx, x, NULL);
217 if (y > -1)
218 XtVaSetValues((Widget) m_frameShell, XmNy, y, NULL);
219 if (width > -1)
220 XtVaSetValues((Widget) m_frameShell, XmNwidth, width, NULL);
221 if (height > -1)
222 XtVaSetValues((Widget) m_frameShell, XmNheight, height, NULL);
223
224 m_mainWidget = m_frameWidget;
225
226 ChangeFont(FALSE);
227
228 // This patch comes from Torsten Liermann lier@lier1.muc.de
229 if (XmIsMotifWMRunning( (Widget) m_frameShell ))
230 {
231 int decor = 0 ;
232 if (style & wxRESIZE_BORDER)
233 decor |= MWM_DECOR_RESIZEH ;
234 if (style & wxSYSTEM_MENU)
235 decor |= MWM_DECOR_MENU;
236 if ((style & wxCAPTION) ||
237 (style & wxTINY_CAPTION_HORIZ) ||
238 (style & wxTINY_CAPTION_VERT))
239 decor |= MWM_DECOR_TITLE;
240 if (style & wxTHICK_FRAME)
241 decor |= MWM_DECOR_BORDER;
242 if (style & wxTHICK_FRAME)
243 decor |= MWM_DECOR_BORDER;
244 if (style & wxMINIMIZE_BOX)
245 decor |= MWM_DECOR_MINIMIZE;
246 if (style & wxMAXIMIZE_BOX)
247 decor |= MWM_DECOR_MAXIMIZE;
248 XtVaSetValues((Widget) m_frameShell,XmNmwmDecorations,decor,NULL) ;
249 }
250 // This allows non-Motif window managers to support at least the
251 // no-decorations case.
252 else
253 {
254 if (style == 0)
255 XtVaSetValues((Widget) m_frameShell,XmNoverrideRedirect,TRUE,NULL);
256 }
257 XtRealizeWidget((Widget) m_frameShell);
258
259 // Intercept CLOSE messages from the window manager
260 Atom WM_DELETE_WINDOW = XmInternAtom(XtDisplay((Widget) m_frameShell), "WM_DELETE_WINDOW", False);
261 #if (XmREVISION > 1 || XmVERSION > 1)
262 XmAddWMProtocolCallback((Widget) m_frameShell, WM_DELETE_WINDOW, (XtCallbackProc) wxCloseFrameCallback, (XtPointer)this);
263 #else
264 #if XmREVISION == 1
265 XmAddWMProtocolCallback((Widget) m_frameShell, WM_DELETE_WINDOW, (XtCallbackProc) wxCloseFrameCallback, (caddr_t)this);
266 #else
267 XmAddWMProtocolCallback((Widget) m_frameShell, WM_DELETE_WINDOW, (void (*)())wxCloseFrameCallback, (caddr_t)this);
268 #endif
269 #endif
270
271 ChangeBackgroundColour();
272
273 PreResize();
274
275 wxSizeEvent sizeEvent(wxSize(width, height), GetId());
276 sizeEvent.SetEventObject(this);
277
278 GetEventHandler()->ProcessEvent(sizeEvent);
279
280 return TRUE;
281 }
282
283 wxFrame::~wxFrame()
284 {
285 if (GetMainWidget())
286 Show(FALSE);
287
288 if (m_frameMenuBar)
289 {
290 m_frameMenuBar->DestroyMenuBar();
291
292 // Hack to stop core dump on Ultrix, OSF, for some strange reason.
293 #if MOTIF_MENUBAR_DELETE_FIX
294 GetMenuBar()->SetMainWidget((WXWidget) NULL);
295 #endif
296 delete m_frameMenuBar;
297 m_frameMenuBar = NULL;
298 }
299
300 wxTopLevelWindows.DeleteObject(this);
301 wxModelessWindows.DeleteObject(this);
302
303 if (m_frameStatusBar)
304 delete m_frameStatusBar;
305
306 DestroyChildren();
307
308 /*
309 int i;
310 for (i = 0; i < wxMAX_STATUS; i++)
311 if (statusTextWidget[i])
312 XtDestroyWidget (statusTextWidget[i]);
313
314 if (statusLineForm)
315 XtDestroyWidget (statusLineForm);
316
317 if (statusLineWidget)
318 XtDestroyWidget (statusLineWidget);
319 */
320
321 if (m_workArea)
322 {
323 wxDeleteWindowFromTable((Widget) m_workArea);
324
325 XtDestroyWidget ((Widget) m_workArea);
326 }
327
328 if (m_frameWidget)
329 {
330 wxDeleteWindowFromTable((Widget) m_frameWidget);
331 XtDestroyWidget ((Widget) m_frameWidget);
332 }
333
334 if (m_frameShell)
335 XtDestroyWidget ((Widget) m_frameShell);
336
337 SetMainWidget((WXWidget) NULL);
338
339 /* Check if it's the last top-level window */
340
341 if (wxTheApp && (wxTopLevelWindows.Number() == 0))
342 {
343 wxTheApp->SetTopWindow(NULL);
344
345 if (wxTheApp->GetExitOnFrameDelete())
346 {
347 // Signal to the app that we're going to close
348 wxTheApp->ExitMainLoop();
349 }
350 }
351
352 }
353
354 // Get size *available for subwindows* i.e. excluding menu bar, toolbar etc.
355 void wxFrame::GetClientSize(int *x, int *y) const
356 {
357 Dimension xx, yy;
358 XtVaGetValues((Widget) m_workArea, XmNwidth, &xx, XmNheight, &yy, NULL);
359
360 if (m_frameStatusBar)
361 {
362 int sbw, sbh;
363 m_frameStatusBar->GetSize(& sbw, & sbh);
364 yy -= sbh;
365 }
366 if (m_frameToolBar)
367 {
368 int tbw, tbh;
369 m_frameToolBar->GetSize(& tbw, & tbh);
370 if (m_frameToolBar->GetWindowStyleFlag() & wxTB_VERTICAL)
371 xx -= tbw;
372 else
373 yy -= tbh;
374 }
375 /*
376 if (GetMenuBar() != (wxMenuBar*) NULL)
377 {
378 // it seems that if a frame holds a panel, the menu bar size
379 // gets automatically taken care of --- grano@cs.helsinki.fi 4.4.95
380 bool hasSubPanel = FALSE;
381 for(wxNode* node = GetChildren().First(); node; node = node->Next())
382 {
383 wxWindow *win = (wxWindow *)node->Data();
384 hasSubPanel = (win->IsKindOf(CLASSINFO(wxPanel)) && !win->IsKindOf(CLASSINFO(wxDialog)));
385
386 if (hasSubPanel)
387 break;
388 }
389 if (! hasSubPanel) {
390 Dimension ys;
391 XtVaGetValues((Widget) GetMenuBarWidget(), XmNheight, &ys, NULL);
392 yy -= ys;
393 }
394 }
395 */
396
397 *x = xx; *y = yy;
398 }
399
400 // Set the client size (i.e. leave the calculation of borders etc.
401 // to wxWindows)
402 void wxFrame::SetClientSize(int width, int height)
403 {
404 // Calculate how large the new main window should be
405 // by finding the difference between the client area and the
406 // main window area, and adding on to the new client area
407 if (width > -1)
408 XtVaSetValues((Widget) m_workArea, XmNwidth, width, NULL);
409
410 if (height > -1)
411 {
412 if (m_frameStatusBar)
413 {
414 int sbw, sbh;
415 m_frameStatusBar->GetSize(& sbw, & sbh);
416 height += sbh;
417 }
418 if (m_frameToolBar)
419 {
420 int tbw, tbh;
421 m_frameToolBar->GetSize(& tbw, & tbh);
422 if (m_frameToolBar->GetWindowStyleFlag() & wxTB_VERTICAL)
423 width += tbw;
424 else
425 height += tbh;
426 }
427
428 XtVaSetValues((Widget) m_workArea, XmNheight, height, NULL);
429 }
430 PreResize();
431
432 wxSizeEvent sizeEvent(wxSize(width, height), GetId());
433 sizeEvent.SetEventObject(this);
434
435 GetEventHandler()->ProcessEvent(sizeEvent);
436
437 }
438
439 void wxFrame::GetSize(int *width, int *height) const
440 {
441 Dimension xx, yy;
442 XtVaGetValues((Widget) m_frameShell, XmNwidth, &xx, XmNheight, &yy, NULL);
443 *width = xx; *height = yy;
444 }
445
446 void wxFrame::GetPosition(int *x, int *y) const
447 {
448 Window parent_window = XtWindow((Widget) m_frameShell),
449 next_parent = XtWindow((Widget) m_frameShell),
450 root = RootWindowOfScreen(XtScreen((Widget) m_frameShell));
451
452 // search for the parent that is child of ROOT, because the WM may
453 // reparent twice and notify only the next parent (like FVWM)
454 while (next_parent != root) {
455 Window *theChildren; unsigned int n;
456 parent_window = next_parent;
457 XQueryTree(XtDisplay((Widget) m_frameShell), parent_window, &root,
458 &next_parent, &theChildren, &n);
459 XFree(theChildren); // not needed
460 }
461 int xx, yy; unsigned int dummy;
462 XGetGeometry(XtDisplay((Widget) m_frameShell), parent_window, &root,
463 &xx, &yy, &dummy, &dummy, &dummy, &dummy);
464 if (x) *x = xx;
465 if (y) *y = yy;
466 }
467
468 void wxFrame::SetSize(int x, int y, int width, int height, int sizeFlags)
469 {
470 if (x > -1)
471 XtVaSetValues((Widget) m_frameShell, XmNx, x, NULL);
472 if (y > -1)
473 XtVaSetValues((Widget) m_frameShell, XmNy, y, NULL);
474 if (width > -1)
475 XtVaSetValues((Widget) m_frameWidget, XmNwidth, width, NULL);
476 if (height > -1)
477 XtVaSetValues((Widget) m_frameWidget, XmNheight, height, NULL);
478
479 if (!(height == -1 && width == -1))
480 {
481 PreResize();
482 /* JACS: not sure if this is necessary
483 wxSizeEvent sizeEvent(wxSize(width, height), GetId());
484 sizeEvent.SetEventObject(this);
485
486 GetEventHandler()->ProcessEvent(sizeEvent);
487 */
488 }
489 }
490
491 bool wxFrame::Show(bool show)
492 {
493 if (!m_frameShell)
494 return wxWindow::Show(show);
495
496 m_visibleStatus = show; /* show-&-hide fix */
497
498 m_isShown = show;
499 if (show) {
500 XtMapWidget((Widget) m_frameShell);
501 XRaiseWindow(XtDisplay((Widget) m_frameShell), XtWindow((Widget) m_frameShell));
502 } else {
503 XtUnmapWidget((Widget) m_frameShell);
504 // XmUpdateDisplay(wxTheApp->topLevel); // Experimental: may be responsible for crashes
505 }
506 return TRUE;
507 }
508
509 void wxFrame::Iconize(bool iconize)
510 {
511 if (!iconize)
512 Show(TRUE);
513
514 if (m_frameShell)
515 XtVaSetValues((Widget) m_frameShell, XmNiconic, (Boolean)iconize, NULL);
516 }
517
518 // Equivalent to maximize/restore in Windows
519 void wxFrame::Maximize(bool maximize)
520 {
521 Show(TRUE);
522
523 if (maximize && m_frameShell)
524 XtVaSetValues((Widget) m_frameShell, XmNiconic, FALSE, NULL);
525 }
526
527 bool wxFrame::IsIconized() const
528 {
529 if (!m_frameShell)
530 return FALSE;
531
532 Boolean iconic;
533 XtVaGetValues((Widget) m_frameShell, XmNiconic, &iconic, NULL);
534 return iconic;
535 }
536
537 void wxFrame::SetTitle(const wxString& title)
538 {
539 if (title == m_title)
540 return;
541
542 m_title = title;
543
544 if (!title.IsNull())
545 XtVaSetValues((Widget) m_frameShell,
546 XmNtitle, (const char*) title,
547 XmNiconName, (const char*) title,
548 NULL);
549 }
550
551 void wxFrame::SetIcon(const wxIcon& icon)
552 {
553 m_icon = icon;
554
555 if (!m_frameShell)
556 return;
557
558 if (!icon.Ok() || !icon.GetPixmap())
559 return;
560
561 XtVaSetValues((Widget) m_frameShell, XtNiconPixmap, icon.GetPixmap(), NULL);
562 }
563
564 wxStatusBar *wxFrame::OnCreateStatusBar(int number, long style, wxWindowID id,
565 const wxString& name)
566 {
567 wxStatusBar *statusBar = NULL;
568
569 statusBar = new wxStatusBar(this, id, wxPoint(0, 0), wxSize(100, 20),
570 style, name);
571
572 // Set the height according to the font and the border size
573 wxClientDC dc(statusBar);
574 dc.SetFont(statusBar->GetFont());
575
576 long x, y;
577 dc.GetTextExtent("X", &x, &y);
578
579 int height = (int)( (y * 1.1) + 2* statusBar->GetBorderY());
580
581 statusBar->SetSize(-1, -1, 100, height);
582
583 statusBar->SetFieldsCount(number);
584 return statusBar;
585 }
586
587 wxStatusBar* wxFrame::CreateStatusBar(int number, long style, wxWindowID id,
588 const wxString& name)
589 {
590 // Calling CreateStatusBar twice is an error.
591 wxCHECK_MSG( m_frameStatusBar == NULL, FALSE,
592 "recreating status bar in wxFrame" );
593
594 m_frameStatusBar = OnCreateStatusBar(number, style, id,
595 name);
596 if ( m_frameStatusBar )
597 {
598 PositionStatusBar();
599 return m_frameStatusBar;
600 }
601 else
602 return NULL;
603 }
604
605 void wxFrame::SetStatusText(const wxString& text, int number)
606 {
607 wxCHECK_RET( m_frameStatusBar != NULL, "no statusbar to set text for" );
608
609 m_frameStatusBar->SetStatusText(text, number);
610 }
611
612 void wxFrame::SetStatusWidths(int n, const int widths_field[])
613 {
614 wxCHECK_RET( m_frameStatusBar != NULL, "no statusbar to set widths for" );
615
616 m_frameStatusBar->SetStatusWidths(n, widths_field);
617 PositionStatusBar();
618 }
619
620 void wxFrame::PositionStatusBar()
621 {
622 if (!m_frameStatusBar)
623 return;
624
625 int w, h;
626 GetClientSize(&w, &h);
627 int sw, sh;
628 m_frameStatusBar->GetSize(&sw, &sh);
629
630 // Since we wish the status bar to be directly under the client area,
631 // we use the adjusted sizes without using wxSIZE_NO_ADJUSTMENTS.
632 m_frameStatusBar->SetSize(0, h, w, sh);
633 }
634
635 WXWidget wxFrame::GetMenuBarWidget() const
636 {
637 if (GetMenuBar())
638 return GetMenuBar()->GetMainWidget();
639 else
640 return (WXWidget) NULL;
641 }
642
643 void wxFrame::SetMenuBar(wxMenuBar *menuBar)
644 {
645 if (!menuBar)
646 {
647 m_frameMenuBar = NULL;
648 return;
649 }
650
651 // Currently can't set it twice
652 // wxASSERT_MSG( (m_frameMenuBar == (wxMenuBar*) NULL), "Cannot set the menubar more than once");
653
654 if (m_frameMenuBar)
655 {
656 m_frameMenuBar->DestroyMenuBar();
657 delete m_frameMenuBar;
658 }
659
660 m_frameMenuBar = menuBar;
661 m_frameMenuBar->CreateMenuBar(this);
662 }
663
664 void wxFrame::Fit()
665 {
666 // Work out max. size
667 wxNode *node = GetChildren().First();
668 int max_width = 0;
669 int max_height = 0;
670 while (node)
671 {
672 // Find a child that's a subwindow, but not a dialog box.
673 wxWindow *win = (wxWindow *)node->Data();
674
675 if (!win->IsKindOf(CLASSINFO(wxFrame)) &&
676 !win->IsKindOf(CLASSINFO(wxDialog)))
677 {
678 int width, height;
679 int x, y;
680 win->GetSize(&width, &height);
681 win->GetPosition(&x, &y);
682
683 if ((x + width) > max_width)
684 max_width = x + width;
685 if ((y + height) > max_height)
686 max_height = y + height;
687 }
688 node = node->Next();
689 }
690 SetClientSize(max_width, max_height);
691 }
692
693 // Responds to colour changes, and passes event on to children.
694 void wxFrame::OnSysColourChanged(wxSysColourChangedEvent& event)
695 {
696 SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_APPWORKSPACE));
697 Refresh();
698
699 if ( m_frameStatusBar )
700 {
701 wxSysColourChangedEvent event2;
702 event2.SetEventObject( m_frameStatusBar );
703 m_frameStatusBar->ProcessEvent(event2);
704 }
705
706 // Propagate the event to the non-top-level children
707 wxWindow::OnSysColourChanged(event);
708 }
709
710 // Default resizing behaviour - if only ONE subwindow,
711 // resize to client rectangle size
712 void wxFrame::OnSize(wxSizeEvent& event)
713 {
714 // if we're using constraints - do use them
715 #if wxUSE_CONSTRAINTS
716 if ( GetAutoLayout() ) {
717 Layout();
718 return;
719 }
720 #endif
721
722 // do we have _exactly_ one child?
723 wxWindow *child = NULL;
724 for ( wxNode *node = GetChildren().First(); node; node = node->Next() )
725 {
726 wxWindow *win = (wxWindow *)node->Data();
727 if ( !win->IsKindOf(CLASSINFO(wxFrame)) &&
728 !win->IsKindOf(CLASSINFO(wxDialog)) &&
729 (win != GetStatusBar()) &&
730 (win != GetToolBar()) )
731 {
732 if ( child )
733 return; // it's our second subwindow - nothing to do
734 child = win;
735 }
736 }
737
738 if ( child ) {
739 // we have exactly one child - set it's size to fill the whole frame
740 int clientW, clientH;
741 GetClientSize(&clientW, &clientH);
742
743 int x = 0;
744 int y = 0;
745
746 child->SetSize(x, y, clientW, clientH);
747 }
748 }
749
750 // Default activation behaviour - set the focus for the first child
751 // subwindow found.
752 void wxFrame::OnActivate(wxActivateEvent& event)
753 {
754 for(wxNode *node = GetChildren().First(); node; node = node->Next())
755 {
756 // Find a child that's a subwindow, but not a dialog box.
757 wxWindow *child = (wxWindow *)node->Data();
758 if (!child->IsKindOf(CLASSINFO(wxFrame)) &&
759 !child->IsKindOf(CLASSINFO(wxDialog)))
760 {
761 child->SetFocus();
762 return;
763 }
764 }
765 }
766
767 // The default implementation for the close window event - calls
768 // OnClose for backward compatibility.
769
770 void wxFrame::OnCloseWindow(wxCloseEvent& event)
771 {
772 // Compatibility
773 if ( GetEventHandler()->OnClose() || event.GetForce())
774 {
775 this->Destroy();
776 }
777 }
778
779 bool wxFrame::OnClose()
780 {
781 return TRUE;
782 }
783
784 // Destroy the window (delayed, if a managed window)
785 bool wxFrame::Destroy()
786 {
787 if (!wxPendingDelete.Member(this))
788 wxPendingDelete.Append(this);
789 return TRUE;
790 }
791
792 // Default menu selection behaviour - display a help string
793 void wxFrame::OnMenuHighlight(wxMenuEvent& event)
794 {
795 if (GetStatusBar())
796 {
797 if (event.GetMenuId() == -1)
798 SetStatusText("");
799 else
800 {
801 wxMenuBar *menuBar = GetMenuBar();
802 if (menuBar)
803 {
804 wxString helpString(menuBar->GetHelpString(event.GetMenuId()));
805 if (helpString != "")
806 SetStatusText(helpString);
807 }
808 }
809 }
810 }
811
812 wxMenuBar *wxFrame::GetMenuBar() const
813 {
814 return m_frameMenuBar;
815 }
816
817 void wxFrame::Centre(int direction)
818 {
819 int display_width, display_height, width, height, x, y;
820 wxDisplaySize(&display_width, &display_height);
821
822 GetSize(&width, &height);
823 GetPosition(&x, &y);
824
825 if (direction & wxHORIZONTAL)
826 x = (int)((display_width - width)/2);
827 if (direction & wxVERTICAL)
828 y = (int)((display_height - height)/2);
829
830 SetSize(x, y, width, height);
831 }
832
833 // Call this to simulate a menu command
834 void wxFrame::Command(int id)
835 {
836 ProcessCommand(id);
837 }
838
839 void wxFrame::ProcessCommand(int id)
840 {
841 wxCommandEvent commandEvent(wxEVENT_TYPE_MENU_COMMAND, id);
842 commandEvent.SetInt( id );
843 commandEvent.SetEventObject( this );
844
845 wxMenuBar *bar = GetMenuBar() ;
846 if (!bar)
847 return;
848
849 /* TODO: check the menu item if required
850 wxMenuItem *item = bar->FindItemForId(id) ;
851 if (item && item->IsCheckable())
852 {
853 bar->Check(id,!bar->Checked(id)) ;
854 }
855 */
856
857 GetEventHandler()->ProcessEvent(commandEvent);
858 }
859
860 // Checks if there is a toolbar, and returns the first free client position
861 wxPoint wxFrame::GetClientAreaOrigin() const
862 {
863 wxPoint pt(0, 0);
864 if (GetToolBar())
865 {
866 int w, h;
867 GetToolBar()->GetSize(& w, & h);
868
869 if (GetToolBar()->GetWindowStyleFlag() & wxTB_VERTICAL)
870 {
871 pt.x += w;
872 }
873 else
874 {
875 pt.y += h;
876 }
877 }
878 return pt;
879 }
880
881 void wxFrame::ScreenToClient(int *x, int *y) const
882 {
883 wxWindow::ScreenToClient(x, y);
884
885 // We may be faking the client origin.
886 // So a window that's really at (0, 30) may appear
887 // (to wxWin apps) to be at (0, 0).
888 wxPoint pt(GetClientAreaOrigin());
889 *x -= pt.x;
890 *y -= pt.y;
891 }
892
893 void wxFrame::ClientToScreen(int *x, int *y) const
894 {
895 // We may be faking the client origin.
896 // So a window that's really at (0, 30) may appear
897 // (to wxWin apps) to be at (0, 0).
898 wxPoint pt1(GetClientAreaOrigin());
899 *x += pt1.x;
900 *y += pt1.y;
901
902 wxWindow::ClientToScreen(x, y);
903 }
904
905 wxToolBar* wxFrame::CreateToolBar(long style, wxWindowID id, const wxString& name)
906 {
907 wxCHECK_MSG( m_frameToolBar == NULL, FALSE,
908 "recreating toolbar in wxFrame" );
909
910 wxToolBar* toolBar = OnCreateToolBar(style, id, name);
911 if (toolBar)
912 {
913 SetToolBar(toolBar);
914 PositionToolBar();
915 return toolBar;
916 }
917 else
918 {
919 return NULL;
920 }
921 }
922
923 wxToolBar* wxFrame::OnCreateToolBar(long style, wxWindowID id, const wxString& name)
924 {
925 return new wxToolBar(this, id, wxPoint(0, 0), wxSize(100, 24), style, name);
926 }
927
928 void wxFrame::PositionToolBar()
929 {
930 int cw, ch;
931
932 GetClientSize(& cw, &ch);
933
934 if (GetToolBar())
935 {
936 int tw, th;
937 GetToolBar()->GetSize(& tw, & th);
938
939 if (GetToolBar()->GetWindowStyleFlag() & wxTB_VERTICAL)
940 {
941 // Use the 'real' position. wxSIZE_NO_ADJUSTMENTS
942 // means, pretend we don't have toolbar/status bar, so we
943 // have the original client size.
944 GetToolBar()->SetSize(0, 0, tw, ch + th, wxSIZE_NO_ADJUSTMENTS);
945 }
946 else
947 {
948 // Use the 'real' position
949 GetToolBar()->SetSize(0, 0, cw, th, wxSIZE_NO_ADJUSTMENTS);
950 }
951 }
952 }
953
954 void wxFrame::CaptureMouse()
955 {
956 if (m_winCaptured)
957 return;
958
959 if (GetMainWidget())
960 XtAddGrab((Widget) m_frameShell, TRUE, FALSE);
961 m_winCaptured = TRUE;
962 }
963
964 void wxFrame::ReleaseMouse()
965 {
966 if (!m_winCaptured)
967 return;
968
969 if (GetMainWidget())
970 XtRemoveGrab((Widget) m_frameShell);
971 m_winCaptured = FALSE;
972 }
973
974 void wxFrame::Raise(void)
975 {
976 Window parent_window = XtWindow((Widget) m_frameShell),
977 next_parent = XtWindow((Widget) m_frameShell),
978 root = RootWindowOfScreen(XtScreen((Widget) m_frameShell));
979 // search for the parent that is child of ROOT, because the WM may
980 // reparent twice and notify only the next parent (like FVWM)
981 while (next_parent != root) {
982 Window *theChildren; unsigned int n;
983 parent_window = next_parent;
984 XQueryTree(XtDisplay((Widget) m_frameShell), parent_window, &root,
985 &next_parent, &theChildren, &n);
986 XFree(theChildren); // not needed
987 }
988 XRaiseWindow(XtDisplay((Widget) m_frameShell), parent_window);
989 }
990
991 void wxFrame::Lower(void)
992 {
993 Window parent_window = XtWindow((Widget) m_frameShell),
994 next_parent = XtWindow((Widget) m_frameShell),
995 root = RootWindowOfScreen(XtScreen((Widget) m_frameShell));
996 // search for the parent that is child of ROOT, because the WM may
997 // reparent twice and notify only the next parent (like FVWM)
998 while (next_parent != root) {
999 Window *theChildren; unsigned int n;
1000 parent_window = next_parent;
1001 XQueryTree(XtDisplay((Widget) m_frameShell), parent_window, &root,
1002 &next_parent, &theChildren, &n);
1003 XFree(theChildren); // not needed
1004 }
1005 XLowerWindow(XtDisplay((Widget) m_frameShell), parent_window);
1006 }
1007
1008 void wxFrame::SetToolBar(wxToolBar *toolbar)
1009 { m_frameToolBar = toolbar; }
1010
1011 wxToolBar *wxFrame::GetToolBar() const
1012 { return m_frameToolBar; }
1013
1014 void wxFrameFocusProc(Widget workArea, XtPointer clientData,
1015 XmAnyCallbackStruct *cbs)
1016 {
1017 wxFrame *frame = (wxFrame *)clientData;
1018
1019 // wxDebugMsg("focus proc from frame %ld\n",(long)frame);
1020 // TODO
1021 // frame->GetEventHandler()->OnSetFocus();
1022 }
1023
1024 /* MATTEW: Used to insure that hide-&-show within an event cycle works */
1025 static void wxFrameMapProc(Widget frameShell, XtPointer clientData,
1026 XCrossingEvent * event)
1027 {
1028 wxFrame *frame = (wxFrame *)wxWidgetHashTable->Get((long)clientData);
1029
1030 if (frame) {
1031 XEvent *e = (XEvent *)event;
1032
1033 if (e->xany.type == MapNotify)
1034 {
1035 // Iconize fix
1036 XtVaSetValues(frameShell, XmNiconic, (Boolean)False, NULL);
1037 if (!frame->GetVisibleStatus())
1038 {
1039 /* We really wanted this to be hidden! */
1040 XtUnmapWidget((Widget) frame->GetShellWidget());
1041 }
1042 }
1043 else if (e->xany.type == UnmapNotify)
1044 // Iconize fix
1045 XtVaSetValues(frameShell, XmNiconic, (Boolean)True, NULL);
1046 }
1047 }
1048
1049 //// Motif-specific
1050 bool wxFrame::PreResize()
1051 {
1052 PositionToolBar();
1053 PositionStatusBar();
1054 return TRUE;
1055 }
1056
1057 WXWidget wxFrame::GetClientWidget() const
1058 {
1059 return m_clientArea;
1060 }
1061
1062 void wxFrame::ChangeFont(bool keepOriginalSize)
1063 {
1064 // TODO
1065 }
1066
1067 void wxFrame::ChangeBackgroundColour()
1068 {
1069 if (GetClientWidget())
1070 DoChangeBackgroundColour(GetClientWidget(), m_backgroundColour);
1071 }
1072
1073 void wxFrame::ChangeForegroundColour()
1074 {
1075 if (GetClientWidget())
1076 DoChangeForegroundColour(GetClientWidget(), m_foregroundColour);
1077 }
1078
1079 void wxCloseFrameCallback(Widget widget, XtPointer client_data, XmAnyCallbackStruct *cbs)
1080 {
1081 wxFrame *frame = (wxFrame *)client_data;
1082
1083 wxCloseEvent closeEvent(wxEVT_CLOSE_WINDOW, frame->GetId());
1084 closeEvent.SetEventObject(frame);
1085
1086 // May delete the frame (with delayed deletion)
1087 frame->GetEventHandler()->ProcessEvent(closeEvent);
1088 }
1089