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