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     #include "wx/settings.h"
  28 #endif
  29
  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
  70 #define wxUSE_INVISIBLE_RESIZE 1
  71
  72 IMPLEMENT_DYNAMIC_CLASS(wxDialog, wxTopLevelWindow)
  73
  74 BEGIN_EVENT_TABLE(wxDialog, wxTopLevelWindow)
  75     EVT_BUTTON(wxID_OK, wxDialog::OnOK)
  76     EVT_BUTTON(wxID_APPLY, wxDialog::OnApply)
  77     EVT_BUTTON(wxID_CANCEL, wxDialog::OnCancel)
  78     EVT_CHAR_HOOK(wxDialog::OnCharHook)
  79     EVT_SYS_COLOUR_CHANGED(wxDialog::OnSysColourChanged)
  80     EVT_CLOSE(wxDialog::OnCloseWindow)
  81 END_EVENT_TABLE()
  82
  83
  84 wxDialog::wxDialog()
  85 {
  86     m_modalShowing = false;
  87     m_eventLoop = NULL;
  88     m_backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE);
  89 }
  90
  91 bool wxDialog::Create(wxWindow *parent, wxWindowID id,
  92                       const wxString& title,
  93                       const wxPoint& pos,
  94                       const wxSize& size,
  95                       long style,
  96                       const wxString& name)
  97 {
  98     SetExtraStyle(GetExtraStyle() | wxTOPLEVEL_EX_DIALOG);
  99
 100     if( !wxTopLevelWindow::Create( parent, id, title, pos, size, style,
 101                                    name ) )
 102         return false;
 103
 104     m_modalShowing = false;
 105     m_eventLoop = NULL;
 106
 107     m_backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE);
 108     m_foregroundColour = *wxBLACK;
 109
 110     Widget dialogShell = (Widget) m_mainWidget;
 111
 112     SetTitle( title );
 113
 114     m_font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
 115     ChangeFont(false);
 116
 117     // Can't remember what this was about... but I think it's necessary.
 118 #if wxUSE_INVISIBLE_RESIZE
 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 #endif
 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     Widget shell = XtParent(dialogShell) ;
 137     XtVaSetValues(shell, XmNmappedWhenManaged, False, NULL);
 138 #endif
 139
 140 #if !wxUSE_INVISIBLE_RESIZE
 141     XtManageChild(dialogShell);
 142     SetSize(pos.x, pos.y, size.x, size.y);
 143 #endif
 144
 145     XtAddEventHandler(dialogShell,ExposureMask,False,
 146         wxUniversalRepaintProc, (XtPointer) this);
 147
 148     ChangeBackgroundColour();
 149
 150     return true;
 151 }
 152
 153 bool wxDialog::XmDoCreateTLW(wxWindow* parent,
 154                              wxWindowID WXUNUSED(id),
 155                              const wxString& WXUNUSED(title),
 156                              const wxPoint& WXUNUSED(pos),
 157                              const wxSize& WXUNUSED(size),
 158                              long WXUNUSED(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    if ( flag )
 201        wxModelessWindows.DeleteObject(this);
 202    else
 203        wxModelessWindows.Append(this);
 204 }
 205
 206 wxDialog::~wxDialog()
 207 {
 208     m_isBeingDeleted = true;
 209
 210     delete m_eventLoop;
 211
 212     if (m_mainWidget)
 213     {
 214         XtRemoveEventHandler((Widget) m_mainWidget, ExposureMask, False,
 215                              wxUniversalRepaintProc, (XtPointer) this);
 216     }
 217
 218     m_modalShowing = false;
 219
 220 #if !wxUSE_INVISIBLE_RESIZE
 221     if (m_mainWidget)
 222     {
 223         XtUnmapWidget((Widget) m_mainWidget);
 224     }
 225 #endif
 226
 227     PreDestroy();
 228
 229     if ( m_mainWidget )
 230     {
 231         wxDeleteWindowFromTable( (Widget)m_mainWidget );
 232         XtDestroyWidget( (Widget)m_mainWidget );
 233     }
 234 }
 235
 236 // By default, pressing escape cancels the dialog
 237 void wxDialog::OnCharHook(wxKeyEvent& event)
 238 {
 239     if (event.m_keyCode == WXK_ESCAPE)
 240     {
 241         // Behaviour changed in 2.0: we'll send a Cancel message
 242         // to the dialog instead of Close.
 243         wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
 244         cancelEvent.SetEventObject( this );
 245         GetEventHandler()->ProcessEvent(cancelEvent);
 246
 247         return;
 248     }
 249     // We didn't process this event.
 250     event.Skip();
 251 }
 252
 253 void wxDialog::DoSetSize(int x, int y, int width, int height, int sizeFlags)
 254 {
 255     XtVaSetValues((Widget) m_mainWidget, XmNresizePolicy, XmRESIZE_ANY, NULL);
 256     wxWindow::DoSetSize(x, y, width, height, sizeFlags);
 257     XtVaSetValues((Widget) m_mainWidget, XmNresizePolicy, XmRESIZE_NONE, NULL);
 258 }
 259
 260 void wxDialog::DoSetClientSize(int width, int height)
 261 {
 262     wxWindow::SetSize(-1, -1, width, height);
 263 }
 264
 265 void wxDialog::SetTitle(const wxString& title)
 266 {
 267     wxTopLevelWindow::SetTitle( title );
 268
 269     if( !title.empty() )
 270     {
 271         wxXmString str( title );
 272         XtVaSetValues( (Widget)m_mainWidget,
 273                        XmNtitle, title.c_str(),
 274                        XmNdialogTitle, str(), // Roberto Cocchi
 275                        XmNiconName, title.c_str(),
 276                        NULL );
 277     }
 278 }
 279
 280 bool wxDialog::Show( bool show )
 281 {
 282     if( !wxWindowBase::Show( show ) )
 283         return false;
 284
 285     m_isShown = show;
 286
 287     if (show)
 288     {
 289         // this usually will result in TransferDataToWindow() being called
 290         // which will change the controls values so do it before showing as
 291         // otherwise we could have some flicker
 292         InitDialog();
 293     }
 294
 295     if (show)
 296     {
 297 #if !wxUSE_INVISIBLE_RESIZE
 298         XtMapWidget(XtParent((Widget) m_mainWidget));
 299 #else
 300         XtManageChild((Widget)m_mainWidget) ;
 301 #endif
 302
 303         XRaiseWindow( XtDisplay( (Widget)m_mainWidget ),
 304                       XtWindow( (Widget)m_mainWidget) );
 305
 306     }
 307     else
 308     {
 309 #if !wxUSE_INVISIBLE_RESIZE
 310         XtUnmapWidget(XtParent((Widget) m_mainWidget));
 311 #else
 312         XtUnmanageChild((Widget)m_mainWidget) ;
 313 #endif
 314
 315         XFlush(XtDisplay((Widget)m_mainWidget));
 316         XSync(XtDisplay((Widget)m_mainWidget), False);
 317     }
 318
 319     return true;
 320 }
 321
 322 // Shows a dialog modally, returning a return code
 323 int wxDialog::ShowModal()
 324 {
 325     Show(true);
 326
 327     // after the event loop ran, the widget might already have been destroyed
 328     WXDisplay* display = (WXDisplay*)XtDisplay( (Widget)m_mainWidget );
 329
 330     if (m_modalShowing)
 331         return 0;
 332     m_eventLoop = new wxEventLoop;
 333
 334     m_modalShowing = true;
 335     XtAddGrab((Widget) m_mainWidget, True, False);
 336
 337     m_eventLoop->Run();
 338
 339     // Now process all events in case they get sent to a destroyed dialog
 340     wxFlushEvents( display );
 341
 342     delete m_eventLoop;
 343     m_eventLoop = NULL;
 344
 345     // TODO: is it safe to call this, if the dialog may have been deleted
 346     // by now? Probably only if we're using delayed deletion of dialogs.
 347     return GetReturnCode();
 348 }
 349
 350 void wxDialog::EndModal(int retCode)
 351 {
 352     if (!m_modalShowing)
 353         return;
 354
 355     SetReturnCode(retCode);
 356
 357     // Strangely, we don't seem to need this now.
 358     //    XtRemoveGrab((Widget) m_mainWidget);
 359
 360     Show(false);
 361
 362     m_modalShowing = false;
 363     m_eventLoop->Exit();
 364
 365     SetModal(false);
 366 }
 367
 368 // Standard buttons
 369 void wxDialog::OnOK(wxCommandEvent& WXUNUSED(event))
 370 {
 371     if ( Validate() && TransferDataFromWindow() )
 372     {
 373         if ( IsModal() )
 374             EndModal(wxID_OK);
 375         else
 376         {
 377             SetReturnCode(wxID_OK);
 378             this->Show(false);
 379         }
 380     }
 381 }
 382
 383 void wxDialog::OnApply(wxCommandEvent& WXUNUSED(event))
 384 {
 385     if (Validate())
 386         TransferDataFromWindow();
 387     // TODO probably need to disable the Apply button until things change again
 388 }
 389
 390 void wxDialog::OnCancel(wxCommandEvent& WXUNUSED(event))
 391 {
 392     if ( IsModal() )
 393         EndModal(wxID_CANCEL);
 394     else
 395     {
 396         SetReturnCode(wxID_CANCEL);
 397         this->Show(false);
 398     }
 399 }
 400
 401 void wxDialog::OnCloseWindow(wxCloseEvent& WXUNUSED(event))
 402 {
 403     // We'll send a Cancel message by default,
 404     // which may close the dialog.
 405     // Check for looping if the Cancel event handler calls Close().
 406
 407     // Note that if a cancel button and handler aren't present in the dialog,
 408     // nothing will happen when you close the dialog via the window manager, or
 409     // via Close().
 410     // We wouldn't want to destroy the dialog by default, since the dialog may have been
 411     // created on the stack.
 412     // However, this does mean that calling dialog->Close() won't delete the dialog
 413     // unless the handler for wxID_CANCEL does so. So use Destroy() if you want to be
 414     // sure to destroy the dialog.
 415     // The default OnCancel (above) simply ends a modal dialog, and hides a modeless dialog.
 416
 417     static wxList closing;
 418
 419     if ( closing.Member(this) )
 420         return;
 421
 422     closing.Append(this);
 423
 424     wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
 425     cancelEvent.SetEventObject( this );
 426     GetEventHandler()->ProcessEvent(cancelEvent); // This may close the dialog
 427
 428     closing.DeleteObject(this);
 429 }
 430
 431 // Destroy the window (delayed, if a managed window)
 432 bool wxDialog::Destroy()
 433 {
 434     if (!wxPendingDelete.Member(this))
 435         wxPendingDelete.Append(this);
 436     return true;
 437 }
 438
 439 void wxDialog::OnSysColourChanged(wxSysColourChangedEvent& WXUNUSED(event))
 440 {
 441     SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE));
 442     Refresh();
 443 }
 444
 445 void wxDialog::ChangeFont(bool keepOriginalSize)
 446 {
 447     wxWindow::ChangeFont(keepOriginalSize);
 448 }
 449
 450 void wxDialog::ChangeBackgroundColour()
 451 {
 452     if (GetMainWidget())
 453         wxDoChangeBackgroundColour(GetMainWidget(), m_backgroundColour);
 454 }
 455
 456 void wxDialog::ChangeForegroundColour()
 457 {
 458     if (GetMainWidget())
 459         wxDoChangeForegroundColour(GetMainWidget(), m_foregroundColour);
 460 }