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