src/motif/dialog.cpp

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