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