src/motif/mdi.cpp

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