| 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 | #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)m_mainWidget)); |
| 309 | XSync(XtDisplay((Widget)m_mainWidget), 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 | // after the event loop ran, the widget might already have been destroyed |
| 323 | WXDisplay* display = (WXDisplay*)XtDisplay( (Widget)m_mainWidget ); |
| 324 | |
| 325 | if (m_modalShowing) |
| 326 | return 0; |
| 327 | m_eventLoop = new wxEventLoop; |
| 328 | |
| 329 | m_modalShowing = TRUE; |
| 330 | XtAddGrab((Widget) m_mainWidget, TRUE, FALSE); |
| 331 | |
| 332 | m_eventLoop->Run(); |
| 333 | |
| 334 | // Now process all events in case they get sent to a destroyed dialog |
| 335 | wxFlushEvents( display ); |
| 336 | |
| 337 | delete m_eventLoop; |
| 338 | m_eventLoop = NULL; |
| 339 | |
| 340 | // TODO: is it safe to call this, if the dialog may have been deleted |
| 341 | // by now? Probably only if we're using delayed deletion of dialogs. |
| 342 | return GetReturnCode(); |
| 343 | } |
| 344 | |
| 345 | void wxDialog::EndModal(int retCode) |
| 346 | { |
| 347 | if (!m_modalShowing) |
| 348 | return; |
| 349 | |
| 350 | SetReturnCode(retCode); |
| 351 | |
| 352 | // Strangely, we don't seem to need this now. |
| 353 | // XtRemoveGrab((Widget) m_mainWidget); |
| 354 | |
| 355 | Show(FALSE); |
| 356 | |
| 357 | m_modalShowing = FALSE; |
| 358 | m_eventLoop->Exit(); |
| 359 | } |
| 360 | |
| 361 | // Standard buttons |
| 362 | void wxDialog::OnOK(wxCommandEvent& WXUNUSED(event)) |
| 363 | { |
| 364 | if ( Validate() && TransferDataFromWindow() ) |
| 365 | { |
| 366 | if ( IsModal() ) |
| 367 | EndModal(wxID_OK); |
| 368 | else |
| 369 | { |
| 370 | SetReturnCode(wxID_OK); |
| 371 | this->Show(FALSE); |
| 372 | } |
| 373 | } |
| 374 | } |
| 375 | |
| 376 | void wxDialog::OnApply(wxCommandEvent& WXUNUSED(event)) |
| 377 | { |
| 378 | if (Validate()) |
| 379 | TransferDataFromWindow(); |
| 380 | // TODO probably need to disable the Apply button until things change again |
| 381 | } |
| 382 | |
| 383 | void wxDialog::OnCancel(wxCommandEvent& WXUNUSED(event)) |
| 384 | { |
| 385 | if ( IsModal() ) |
| 386 | EndModal(wxID_CANCEL); |
| 387 | else |
| 388 | { |
| 389 | SetReturnCode(wxID_CANCEL); |
| 390 | this->Show(FALSE); |
| 391 | } |
| 392 | } |
| 393 | |
| 394 | void wxDialog::OnCloseWindow(wxCloseEvent& WXUNUSED(event)) |
| 395 | { |
| 396 | // We'll send a Cancel message by default, |
| 397 | // which may close the dialog. |
| 398 | // Check for looping if the Cancel event handler calls Close(). |
| 399 | |
| 400 | // Note that if a cancel button and handler aren't present in the dialog, |
| 401 | // nothing will happen when you close the dialog via the window manager, or |
| 402 | // via Close(). |
| 403 | // We wouldn't want to destroy the dialog by default, since the dialog may have been |
| 404 | // created on the stack. |
| 405 | // However, this does mean that calling dialog->Close() won't delete the dialog |
| 406 | // unless the handler for wxID_CANCEL does so. So use Destroy() if you want to be |
| 407 | // sure to destroy the dialog. |
| 408 | // The default OnCancel (above) simply ends a modal dialog, and hides a modeless dialog. |
| 409 | |
| 410 | static wxList closing; |
| 411 | |
| 412 | if ( closing.Member(this) ) |
| 413 | return; |
| 414 | |
| 415 | closing.Append(this); |
| 416 | |
| 417 | wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL); |
| 418 | cancelEvent.SetEventObject( this ); |
| 419 | GetEventHandler()->ProcessEvent(cancelEvent); // This may close the dialog |
| 420 | |
| 421 | closing.DeleteObject(this); |
| 422 | } |
| 423 | |
| 424 | // Destroy the window (delayed, if a managed window) |
| 425 | bool wxDialog::Destroy() |
| 426 | { |
| 427 | if (!wxPendingDelete.Member(this)) |
| 428 | wxPendingDelete.Append(this); |
| 429 | return TRUE; |
| 430 | } |
| 431 | |
| 432 | void wxDialog::OnSysColourChanged(wxSysColourChangedEvent& WXUNUSED(event)) |
| 433 | { |
| 434 | SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE)); |
| 435 | Refresh(); |
| 436 | } |
| 437 | |
| 438 | void wxDialog::ChangeFont(bool keepOriginalSize) |
| 439 | { |
| 440 | wxWindow::ChangeFont(keepOriginalSize); |
| 441 | } |
| 442 | |
| 443 | void wxDialog::ChangeBackgroundColour() |
| 444 | { |
| 445 | if (GetMainWidget()) |
| 446 | wxDoChangeBackgroundColour(GetMainWidget(), m_backgroundColour); |
| 447 | } |
| 448 | |
| 449 | void wxDialog::ChangeForegroundColour() |
| 450 | { |
| 451 | if (GetMainWidget()) |
| 452 | wxDoChangeForegroundColour(GetMainWidget(), m_foregroundColour); |
| 453 | } |