src/motif/dialog.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        dialog.cpp
   3 // Purpose:     wxDialog class
   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 "dialog.h"
  14 #endif
  15
  16 #ifdef __VMS
  17 #define XtDisplay XTDISPLAY
  18 #define XtWindow XTWINDOW
  19 #define XtParent XTPARENT
  20 #define XtScreen XTSCREEN
  21 #endif
  22
  23 #include "wx/dialog.h"
  24 #include "wx/utils.h"
  25 #include "wx/app.h"
  26 #include "wx/settings.h"
  27 #include "wx/evtloop.h"
  28
  29 #ifdef __VMS__
  30 #pragma message disable nosimpint
  31 #endif
  32 #include <Xm/Xm.h>
  33
  34 #include <X11/Shell.h>
  35 #if XmVersion >= 1002
  36 #include <Xm/XmAll.h>
  37 #endif
  38 #include <Xm/MwmUtil.h>
  39 #include <Xm/Label.h>
  40 #include <Xm/BulletinB.h>
  41 #include <Xm/Frame.h>
  42 #include <Xm/Text.h>
  43 #include <Xm/DialogS.h>
  44 #include <Xm/FileSB.h>
  45 #include <Xm/RowColumn.h>
  46 #include <Xm/LabelG.h>
  47 #include <Xm/AtomMgr.h>
  48 #if   XmVersion > 1000
  49 #include <Xm/Protocols.h>
  50 #endif
  51 #ifdef __VMS__
  52 #pragma message enable nosimpint
  53 #endif
  54
  55 #include "wx/motif/private.h"
  56
  57 // A stack of modal_showing flags, since we can't rely
  58 // on accessing wxDialog::m_modalShowing within
  59 // wxDialog::Show in case a callback has deleted the wxDialog.
  60 // static wxList wxModalShowingStack;
  61
  62 // Lists to keep track of windows, so we can disable/enable them
  63 // for modal dialogs
  64 wxList wxModalDialogs;
  65 extern wxList wxModelessWindows;  // Frames and modeless dialogs
  66 extern wxList wxPendingDelete;
  67
  68 #define wxUSE_INVISIBLE_RESIZE 1
  69
  70 IMPLEMENT_DYNAMIC_CLASS(wxDialog, wxTopLevelWindow)
  71
  72 BEGIN_EVENT_TABLE(wxDialog, wxTopLevelWindow)
  73   EVT_BUTTON(wxID_OK, wxDialog::OnOK)
  74   EVT_BUTTON(wxID_APPLY, wxDialog::OnApply)
  75   EVT_BUTTON(wxID_CANCEL, wxDialog::OnCancel)
  76   EVT_CHAR_HOOK(wxDialog::OnCharHook)
  77   EVT_SYS_COLOUR_CHANGED(wxDialog::OnSysColourChanged)
  78   EVT_CLOSE(wxDialog::OnCloseWindow)
  79 END_EVENT_TABLE()
  80
  81
  82 wxDialog::wxDialog()
  83 {
  84     m_modalShowing = FALSE;
  85     m_eventLoop = NULL;
  86     m_backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE);
  87 }
  88
  89 bool wxDialog::Create(wxWindow *parent, wxWindowID id,
  90                       const wxString& title,
  91                       const wxPoint& pos,
  92                       const wxSize& size,
  93                       long style,
  94                       const wxString& name)
  95 {
  96     SetExtraStyle(GetExtraStyle() | wxTOPLEVEL_EX_DIALOG);
  97
  98     if( !wxTopLevelWindow::Create( parent, id, title, pos, size, style,
  99                                    name ) )
 100         return FALSE;
 101
 102     m_modalShowing = FALSE;
 103     m_eventLoop = NULL;
 104
 105     m_backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE);
 106     m_foregroundColour = *wxBLACK;
 107
 108     Widget dialogShell = (Widget) m_mainWidget;
 109     Widget shell = XtParent(dialogShell) ;
 110
 111     SetTitle( title );
 112
 113     m_font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
 114     ChangeFont(FALSE);
 115
 116     // Can't remember what this was about... but I think it's necessary.
 117     if (wxUSE_INVISIBLE_RESIZE)
 118     {
 119         if (pos.x > -1)
 120             XtVaSetValues(dialogShell, XmNx, pos.x,
 121             NULL);
 122         if (pos.y > -1)
 123             XtVaSetValues(dialogShell, XmNy, pos.y,
 124             NULL);
 125
 126         if (size.x > -1)
 127             XtVaSetValues(dialogShell, XmNwidth, size.x, NULL);
 128         if (size.y > -1)
 129             XtVaSetValues(dialogShell, XmNheight, size.y, NULL);
 130     }
 131
 132     // Positioning of the dialog doesn't work properly unless the dialog
 133     // is managed, so we manage without mapping to the screen.
 134     // To show, we map the shell (actually it's parent).
 135     if (!wxUSE_INVISIBLE_RESIZE)
 136         XtVaSetValues(shell, XmNmappedWhenManaged, FALSE, NULL);
 137
 138     if (!wxUSE_INVISIBLE_RESIZE)
 139     {
 140         XtManageChild(dialogShell);
 141         SetSize(pos.x, pos.y, size.x, size.y);
 142     }
 143     XtAddEventHandler(dialogShell,ExposureMask,FALSE,
 144         wxUniversalRepaintProc, (XtPointer) this);
 145
 146     ChangeBackgroundColour();
 147
 148     return TRUE;
 149 }
 150
 151 bool wxDialog::DoCreate( wxWindow* parent, wxWindowID id,
 152                          const wxString& title,
 153                          const wxPoint& pos,
 154                          const wxSize& size,
 155                          long style,
 156                          const wxString& name )
 157 {
 158     Widget parentWidget = (Widget) 0;
 159     if( parent )
 160         parentWidget = (Widget) parent->GetTopWidget();
 161     if( !parent )
 162         parentWidget = (Widget) wxTheApp->GetTopLevelWidget();
 163
 164     wxASSERT_MSG( (parentWidget != (Widget) 0),
 165                   "Could not find a suitable parent shell for dialog." );
 166
 167     Arg args[2];
 168     XtSetArg (args[0], XmNdefaultPosition, False);
 169     XtSetArg (args[1], XmNautoUnmanage, False);
 170     Widget dialogShell =
 171         XmCreateBulletinBoardDialog( parentWidget,
 172                                      wxConstCast(name.c_str(), char),
 173                                      args, 2);
 174     m_mainWidget = (WXWidget) dialogShell;
 175
 176     // We don't want margins, since there is enough elsewhere.
 177     XtVaSetValues( dialogShell,
 178                    XmNmarginHeight,   0,
 179                    XmNmarginWidth,    0,
 180                    XmNresizePolicy, XmRESIZE_NONE,
 181                    NULL ) ;
 182
 183     XtTranslations ptr ;
 184     XtOverrideTranslations(dialogShell,
 185         ptr = XtParseTranslationTable("<Configure>: resize()"));
 186     XtFree((char *)ptr);
 187
 188     XtRealizeWidget(dialogShell);
 189
 190     wxAddWindowToTable( (Widget)m_mainWidget, this );
 191
 192     return TRUE;
 193 }
 194
 195 void wxDialog::SetModal(bool flag)
 196 {
 197     if ( flag )
 198         m_windowStyle |= wxDIALOG_MODAL ;
 199     else
 200         if ( m_windowStyle & wxDIALOG_MODAL )
 201             m_windowStyle -= wxDIALOG_MODAL ;
 202
 203         wxModelessWindows.DeleteObject(this);
 204         if (!flag)
 205             wxModelessWindows.Append(this);
 206 }
 207
 208 wxDialog::~wxDialog()
 209 {
 210     m_isBeingDeleted = TRUE;
 211
 212     delete m_eventLoop;
 213
 214     if (m_mainWidget)
 215     {
 216         XtRemoveEventHandler((Widget) m_mainWidget, ExposureMask, FALSE,
 217                              wxUniversalRepaintProc, (XtPointer) this);
 218     }
 219
 220     m_modalShowing = FALSE;
 221     if (!wxUSE_INVISIBLE_RESIZE && m_mainWidget)
 222     {
 223         XtUnmapWidget((Widget) m_mainWidget);
 224     }
 225
 226     PreDestroy();
 227     DoDestroy();
 228 }
 229
 230 void wxDialog::DoDestroy()
 231 {
 232     if( m_mainWidget )
 233     {
 234         wxDeleteWindowFromTable( (Widget)m_mainWidget );
 235         XtDestroyWidget( (Widget)m_mainWidget );
 236     }
 237 }
 238
 239 // By default, pressing escape cancels the dialog
 240 void wxDialog::OnCharHook(wxKeyEvent& event)
 241 {
 242     if (event.m_keyCode == WXK_ESCAPE)
 243     {
 244         // Behaviour changed in 2.0: we'll send a Cancel message
 245         // to the dialog instead of Close.
 246         wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
 247         cancelEvent.SetEventObject( this );
 248         GetEventHandler()->ProcessEvent(cancelEvent);
 249
 250         return;
 251     }
 252     // We didn't process this event.
 253     event.Skip();
 254 }
 255
 256 void wxDialog::DoSetSize(int x, int y, int width, int height, int sizeFlags)
 257 {
 258     XtVaSetValues((Widget) m_mainWidget, XmNresizePolicy, XmRESIZE_ANY, NULL);
 259     wxWindow::DoSetSize(x, y, width, height, sizeFlags);
 260     XtVaSetValues((Widget) m_mainWidget, XmNresizePolicy, XmRESIZE_NONE, NULL);
 261 }
 262
 263 void wxDialog::DoSetClientSize(int width, int height)
 264 {
 265     wxWindow::SetSize(-1, -1, width, height);
 266 }
 267
 268 void wxDialog::SetTitle(const wxString& title)
 269 {
 270     wxTopLevelWindow::SetTitle( title );
 271
 272     if( !title.empty() )
 273     {
 274         wxXmString str( title );
 275         XtVaSetValues( (Widget)m_mainWidget,
 276                        XmNtitle, title.c_str(),
 277                        XmNdialogTitle, str(), // Roberto Cocchi
 278                        XmNiconName, title.c_str(),
 279                        NULL );
 280     }
 281 }
 282
 283 bool wxDialog::Show( bool show )
 284 {
 285     if( !wxTopLevelWindowMotif::Show( show ) )
 286         return FALSE;
 287
 288     m_isShown = show;
 289
 290     if (show)
 291     {
 292         if (!wxUSE_INVISIBLE_RESIZE)
 293             XtMapWidget(XtParent((Widget) m_mainWidget));
 294         else
 295             XtManageChild((Widget)m_mainWidget) ;
 296
 297         XRaiseWindow( XtDisplay( (Widget)m_mainWidget ),
 298                       XtWindow( (Widget)m_mainWidget) );
 299
 300     }
 301     else
 302     {
 303         if (!wxUSE_INVISIBLE_RESIZE)
 304             XtUnmapWidget(XtParent((Widget) m_mainWidget));
 305         else
 306             XtUnmanageChild((Widget)m_mainWidget) ;
 307
 308         XFlush(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()));
 309         XSync(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()), FALSE);
 310     }
 311
 312     return TRUE;
 313 }
 314
 315 // Shows a dialog modally, returning a return code
 316 int wxDialog::ShowModal()
 317 {
 318     m_windowStyle |= wxDIALOG_MODAL;
 319
 320     Show(TRUE);
 321
 322     if (m_modalShowing)
 323         return 0;
 324     m_eventLoop = new wxEventLoop;
 325
 326     m_modalShowing = TRUE;
 327     XtAddGrab((Widget) m_mainWidget, TRUE, FALSE);
 328
 329     m_eventLoop->Run();
 330
 331     // Now process all events in case they get sent to a destroyed dialog
 332     XSync(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()), FALSE);
 333     while (m_eventLoop->Pending())
 334     {
 335         XFlush(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()));
 336         m_eventLoop->Dispatch();
 337     }
 338
 339     delete m_eventLoop;
 340     m_eventLoop = NULL;
 341
 342     // TODO: is it safe to call this, if the dialog may have been deleted
 343     // by now? Probably only if we're using delayed deletion of dialogs.
 344     return GetReturnCode();
 345 }
 346
 347 void wxDialog::EndModal(int retCode)
 348 {
 349     if (!m_modalShowing)
 350         return;
 351
 352     SetReturnCode(retCode);
 353
 354     // Strangely, we don't seem to need this now.
 355     //    XtRemoveGrab((Widget) m_mainWidget);
 356
 357     Show(FALSE);
 358
 359     m_modalShowing = FALSE;
 360     m_eventLoop->Exit();
 361 }
 362
 363 // Standard buttons
 364 void wxDialog::OnOK(wxCommandEvent& WXUNUSED(event))
 365 {
 366     if ( Validate() && TransferDataFromWindow() )
 367     {
 368         if ( IsModal() )
 369             EndModal(wxID_OK);
 370         else
 371         {
 372             SetReturnCode(wxID_OK);
 373             this->Show(FALSE);
 374         }
 375     }
 376 }
 377
 378 void wxDialog::OnApply(wxCommandEvent& WXUNUSED(event))
 379 {
 380     if (Validate())
 381         TransferDataFromWindow();
 382     // TODO probably need to disable the Apply button until things change again
 383 }
 384
 385 void wxDialog::OnCancel(wxCommandEvent& WXUNUSED(event))
 386 {
 387     if ( IsModal() )
 388         EndModal(wxID_CANCEL);
 389     else
 390     {
 391         SetReturnCode(wxID_CANCEL);
 392         this->Show(FALSE);
 393     }
 394 }
 395
 396 void wxDialog::OnCloseWindow(wxCloseEvent& WXUNUSED(event))
 397 {
 398     // We'll send a Cancel message by default,
 399     // which may close the dialog.
 400     // Check for looping if the Cancel event handler calls Close().
 401
 402     // Note that if a cancel button and handler aren't present in the dialog,
 403     // nothing will happen when you close the dialog via the window manager, or
 404     // via Close().
 405     // We wouldn't want to destroy the dialog by default, since the dialog may have been
 406     // created on the stack.
 407     // However, this does mean that calling dialog->Close() won't delete the dialog
 408     // unless the handler for wxID_CANCEL does so. So use Destroy() if you want to be
 409     // sure to destroy the dialog.
 410     // The default OnCancel (above) simply ends a modal dialog, and hides a modeless dialog.
 411
 412     static wxList closing;
 413
 414     if ( closing.Member(this) )
 415         return;
 416
 417     closing.Append(this);
 418
 419     wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
 420     cancelEvent.SetEventObject( this );
 421     GetEventHandler()->ProcessEvent(cancelEvent); // This may close the dialog
 422
 423     closing.DeleteObject(this);
 424 }
 425
 426 // Destroy the window (delayed, if a managed window)
 427 bool wxDialog::Destroy()
 428 {
 429     if (!wxPendingDelete.Member(this))
 430         wxPendingDelete.Append(this);
 431     return TRUE;
 432 }
 433
 434 void wxDialog::OnSysColourChanged(wxSysColourChangedEvent& WXUNUSED(event))
 435 {
 436     SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE));
 437     Refresh();
 438 }
 439
 440 void wxDialog::ChangeFont(bool keepOriginalSize)
 441 {
 442     wxWindow::ChangeFont(keepOriginalSize);
 443 }
 444
 445 void wxDialog::ChangeBackgroundColour()
 446 {
 447     if (GetMainWidget())
 448         wxDoChangeBackgroundColour(GetMainWidget(), m_backgroundColour);
 449 }
 450
 451 void wxDialog::ChangeForegroundColour()
 452 {
 453     if (GetMainWidget())
 454         wxDoChangeForegroundColour(GetMainWidget(), m_foregroundColour);
 455 }