Commit | Line | Data |
---|---|---|
4bb6408c JS |
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 | |
dfe1eee3 | 9 | // Licence: wxWindows licence |
4bb6408c JS |
10 | ///////////////////////////////////////////////////////////////////////////// |
11 | ||
12 | #ifdef __GNUG__ | |
13 | #pragma implementation "dialog.h" | |
14 | #endif | |
15 | ||
bcd055ae JJ |
16 | #ifdef __VMS |
17 | #define XtDisplay XTDISPLAY | |
18 | #define XtWindow XTWINDOW | |
19 | #define XtParent XTPARENT | |
20 | #define XtScreen XTSCREEN | |
21 | #endif | |
22 | ||
4bb6408c JS |
23 | #include "wx/dialog.h" |
24 | #include "wx/utils.h" | |
25 | #include "wx/frame.h" | |
26 | #include "wx/app.h" | |
27 | #include "wx/settings.h" | |
28 | ||
338dd992 JJ |
29 | #ifdef __VMS__ |
30 | #pragma message disable nosimpint | |
31 | #endif | |
dfc54541 JS |
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 | |
338dd992 JJ |
51 | #ifdef __VMS__ |
52 | #pragma message enable nosimpint | |
53 | #endif | |
dfc54541 JS |
54 | |
55 | #include "wx/motif/private.h" | |
56 | ||
57 | static void wxCloseDialogCallback(Widget widget, XtPointer client_data, XmAnyCallbackStruct *cbs); | |
dfc54541 | 58 | static void wxDialogBoxEventHandler (Widget wid, |
2d120f83 JS |
59 | XtPointer client_data, |
60 | XEvent* event, | |
61 | Boolean *continueToDispatch); | |
dfc54541 JS |
62 | |
63 | static void wxUnmapBulletinBoard(Widget dialog, wxDialog *client,XtPointer call); | |
64 | ||
65 | // A stack of modal_showing flags, since we can't rely | |
66 | // on accessing wxDialog::m_modalShowing within | |
67 | // wxDialog::Show in case a callback has deleted the wxDialog. | |
68 | static wxList wxModalShowingStack; | |
69 | ||
4bb6408c JS |
70 | // Lists to keep track of windows, so we can disable/enable them |
71 | // for modal dialogs | |
72 | wxList wxModalDialogs; | |
73 | wxList wxModelessWindows; // Frames and modeless dialogs | |
74 | extern wxList wxPendingDelete; | |
75 | ||
47d67540 | 76 | #define wxUSE_INVISIBLE_RESIZE 1 |
dfc54541 | 77 | |
4bb6408c JS |
78 | IMPLEMENT_DYNAMIC_CLASS(wxDialog, wxPanel) |
79 | ||
80 | BEGIN_EVENT_TABLE(wxDialog, wxPanel) | |
8e877c19 RR |
81 | EVT_SIZE(wxDialog::OnSize) |
82 | EVT_BUTTON(wxID_OK, wxDialog::OnOK) | |
83 | EVT_BUTTON(wxID_APPLY, wxDialog::OnApply) | |
84 | EVT_BUTTON(wxID_CANCEL, wxDialog::OnCancel) | |
85 | EVT_CHAR_HOOK(wxDialog::OnCharHook) | |
86 | EVT_SYS_COLOUR_CHANGED(wxDialog::OnSysColourChanged) | |
87 | EVT_CLOSE(wxDialog::OnCloseWindow) | |
4bb6408c JS |
88 | END_EVENT_TABLE() |
89 | ||
4bb6408c JS |
90 | |
91 | wxDialog::wxDialog() | |
92 | { | |
dfc54541 | 93 | m_modalShowing = FALSE; |
a756f210 | 94 | m_backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE); |
4bb6408c JS |
95 | } |
96 | ||
97 | bool wxDialog::Create(wxWindow *parent, wxWindowID id, | |
2d120f83 JS |
98 | const wxString& title, |
99 | const wxPoint& pos, | |
100 | const wxSize& size, | |
101 | long style, | |
102 | const wxString& name) | |
4bb6408c | 103 | { |
dfc54541 JS |
104 | m_windowStyle = style; |
105 | m_modalShowing = FALSE; | |
106 | m_dialogTitle = title; | |
dfe1eee3 | 107 | |
a756f210 | 108 | m_backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE); |
0d57be45 | 109 | m_foregroundColour = *wxBLACK; |
dfe1eee3 | 110 | |
dfc54541 | 111 | SetName(name); |
dfe1eee3 | 112 | |
dfc54541 JS |
113 | if (!parent) |
114 | wxTopLevelWindows.Append(this); | |
dfe1eee3 | 115 | |
dfc54541 | 116 | if (parent) parent->AddChild(this); |
dfe1eee3 | 117 | |
dfc54541 JS |
118 | if ( id == -1 ) |
119 | m_windowId = (int)NewControlId(); | |
120 | else | |
121 | m_windowId = id; | |
dfe1eee3 | 122 | |
dfc54541 JS |
123 | Widget parentWidget = (Widget) 0; |
124 | if (parent) | |
125 | parentWidget = (Widget) parent->GetTopWidget(); | |
126 | if (!parent) | |
127 | parentWidget = (Widget) wxTheApp->GetTopLevelWidget(); | |
dfe1eee3 | 128 | |
dfc54541 | 129 | wxASSERT_MSG( (parentWidget != (Widget) 0), "Could not find a suitable parent shell for dialog." ); |
dfe1eee3 | 130 | |
94b49b93 | 131 | Arg args[2]; |
dfc54541 | 132 | XtSetArg (args[0], XmNdefaultPosition, False); |
94b49b93 JS |
133 | XtSetArg (args[1], XmNautoUnmanage, False); |
134 | Widget dialogShell = XmCreateBulletinBoardDialog(parentWidget, (char*) (const char*) name, args, 2); | |
dfc54541 | 135 | m_mainWidget = (WXWidget) dialogShell; |
dfe1eee3 | 136 | |
dfc54541 JS |
137 | // We don't want margins, since there is enough elsewhere. |
138 | XtVaSetValues(dialogShell, | |
2d120f83 JS |
139 | XmNmarginHeight, 0, |
140 | XmNmarginWidth, 0, | |
141 | XmNresizePolicy, XmRESIZE_NONE, | |
142 | NULL) ; | |
dfe1eee3 | 143 | |
dfc54541 JS |
144 | Widget shell = XtParent(dialogShell) ; |
145 | if (!title.IsNull()) | |
146 | { | |
147 | XmString str = XmStringCreateSimple((char*) (const char*)title); | |
148 | XtVaSetValues(dialogShell, | |
2d120f83 JS |
149 | XmNdialogTitle, str, |
150 | NULL); | |
dfc54541 JS |
151 | XmStringFree(str); |
152 | } | |
dfe1eee3 | 153 | |
a756f210 | 154 | m_font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT); |
4b5f3fe6 | 155 | ChangeFont(FALSE); |
dfe1eee3 | 156 | |
dfc54541 | 157 | wxAddWindowToTable(dialogShell, this); |
dfe1eee3 | 158 | |
dfc54541 JS |
159 | // Intercept CLOSE messages from the window manager |
160 | Atom WM_DELETE_WINDOW = XmInternAtom(XtDisplay(shell), "WM_DELETE_WINDOW", False); | |
dfe1eee3 | 161 | |
4b5f3fe6 | 162 | /* Remove and add WM_DELETE_WINDOW so ours is only handler */ |
dfc54541 JS |
163 | /* Why do we have to do this for wxDialog, but not wxFrame? */ |
164 | XmRemoveWMProtocols(shell, &WM_DELETE_WINDOW, 1); | |
165 | XmAddWMProtocols(shell, &WM_DELETE_WINDOW, 1); | |
166 | XmActivateWMProtocol(shell, WM_DELETE_WINDOW); | |
dfe1eee3 | 167 | |
dfc54541 JS |
168 | // Modified Steve Hammes for Motif 2.0 |
169 | #if (XmREVISION > 1 || XmVERSION > 1) | |
170 | XmAddWMProtocolCallback(shell, WM_DELETE_WINDOW, (XtCallbackProc) wxCloseDialogCallback, (XtPointer)this); | |
171 | #elif XmREVISION == 1 | |
172 | XmAddWMProtocolCallback(shell, WM_DELETE_WINDOW, (XtCallbackProc) wxCloseDialogCallback, (caddr_t)this); | |
173 | #else | |
174 | XmAddWMProtocolCallback(shell, WM_DELETE_WINDOW, (void (*)())wxCloseDialogCallback, (caddr_t)this); | |
175 | #endif | |
dfe1eee3 | 176 | |
dfc54541 JS |
177 | XtTranslations ptr ; |
178 | XtOverrideTranslations(dialogShell, | |
2d120f83 | 179 | ptr = XtParseTranslationTable("<Configure>: resize()")); |
dfc54541 | 180 | XtFree((char *)ptr); |
dfe1eee3 | 181 | |
dfc54541 | 182 | // Can't remember what this was about... but I think it's necessary. |
dfe1eee3 | 183 | |
dfad0599 | 184 | if (wxUSE_INVISIBLE_RESIZE) |
dfc54541 | 185 | { |
2d120f83 JS |
186 | if (pos.x > -1) |
187 | XtVaSetValues(dialogShell, XmNx, pos.x, | |
188 | NULL); | |
189 | if (pos.y > -1) | |
190 | XtVaSetValues(dialogShell, XmNy, pos.y, | |
191 | NULL); | |
dfe1eee3 | 192 | |
2d120f83 JS |
193 | if (size.x > -1) |
194 | XtVaSetValues(dialogShell, XmNwidth, size.x, NULL); | |
195 | if (size.y > -1) | |
196 | XtVaSetValues(dialogShell, XmNheight, size.y, NULL); | |
dfc54541 | 197 | } |
dfe1eee3 | 198 | |
dfc54541 JS |
199 | // This patch come from Torsten Liermann lier@lier1.muc.de |
200 | if (XmIsMotifWMRunning(shell)) | |
201 | { | |
202 | int decor = 0 ; | |
203 | if (m_windowStyle & wxRESIZE_BORDER) | |
2d120f83 | 204 | decor |= MWM_DECOR_RESIZEH ; |
dfc54541 | 205 | if (m_windowStyle & wxSYSTEM_MENU) |
2d120f83 | 206 | decor |= MWM_DECOR_MENU; |
dfc54541 JS |
207 | if ((m_windowStyle & wxCAPTION) || |
208 | (m_windowStyle & wxTINY_CAPTION_HORIZ) || | |
209 | (m_windowStyle & wxTINY_CAPTION_VERT)) | |
2d120f83 | 210 | decor |= MWM_DECOR_TITLE; |
dfc54541 | 211 | if (m_windowStyle & wxTHICK_FRAME) |
2d120f83 | 212 | decor |= MWM_DECOR_BORDER; |
dfc54541 | 213 | if (m_windowStyle & wxMINIMIZE_BOX) |
2d120f83 | 214 | decor |= MWM_DECOR_MINIMIZE; |
dfc54541 | 215 | if (m_windowStyle & wxMAXIMIZE_BOX) |
2d120f83 | 216 | decor |= MWM_DECOR_MAXIMIZE; |
dfe1eee3 | 217 | |
dfc54541 JS |
218 | XtVaSetValues(shell,XmNmwmDecorations,decor,NULL) ; |
219 | } | |
220 | // This allows non-Motif window managers to support at least the | |
221 | // no-decorations case. | |
222 | else | |
223 | { | |
2d120f83 JS |
224 | if ((m_windowStyle & wxCAPTION) != wxCAPTION) |
225 | XtVaSetValues((Widget) shell,XmNoverrideRedirect,TRUE,NULL); | |
dfc54541 | 226 | } |
dfe1eee3 | 227 | |
dfc54541 | 228 | XtRealizeWidget(dialogShell); |
dfe1eee3 | 229 | |
dfc54541 | 230 | XtAddCallback(dialogShell,XmNunmapCallback, |
2d120f83 | 231 | (XtCallbackProc)wxUnmapBulletinBoard,this) ; |
dfe1eee3 | 232 | |
dfc54541 JS |
233 | // Positioning of the dialog doesn't work properly unless the dialog |
234 | // is managed, so we manage without mapping to the screen. | |
235 | // To show, we map the shell (actually it's parent). | |
dfad0599 | 236 | if (!wxUSE_INVISIBLE_RESIZE) |
dfc54541 | 237 | XtVaSetValues(shell, XmNmappedWhenManaged, FALSE, NULL); |
dfe1eee3 | 238 | |
dfad0599 | 239 | if (!wxUSE_INVISIBLE_RESIZE) |
dfc54541 JS |
240 | { |
241 | XtManageChild(dialogShell); | |
242 | SetSize(pos.x, pos.y, size.x, size.y); | |
243 | } | |
244 | XtAddEventHandler(dialogShell,ExposureMask,FALSE, | |
2e35f56f | 245 | wxUniversalRepaintProc, (XtPointer) this); |
dfe1eee3 | 246 | |
dfc54541 | 247 | XtAddEventHandler(dialogShell, |
2d120f83 JS |
248 | ButtonPressMask | ButtonReleaseMask | PointerMotionMask | KeyPressMask, |
249 | FALSE, | |
250 | wxDialogBoxEventHandler, | |
251 | (XtPointer)this); | |
dfe1eee3 | 252 | |
0d57be45 | 253 | ChangeBackgroundColour(); |
dfe1eee3 | 254 | |
dfc54541 | 255 | return TRUE; |
4bb6408c JS |
256 | } |
257 | ||
258 | void wxDialog::SetModal(bool flag) | |
259 | { | |
dfc54541 JS |
260 | if ( flag ) |
261 | m_windowStyle |= wxDIALOG_MODAL ; | |
262 | else | |
263 | if ( m_windowStyle & wxDIALOG_MODAL ) | |
2d120f83 | 264 | m_windowStyle -= wxDIALOG_MODAL ; |
dfe1eee3 | 265 | |
2d120f83 JS |
266 | wxModelessWindows.DeleteObject(this); |
267 | if (!flag) | |
268 | wxModelessWindows.Append(this); | |
4bb6408c JS |
269 | } |
270 | ||
271 | wxDialog::~wxDialog() | |
272 | { | |
3ab377bd MB |
273 | m_isBeingDeleted = TRUE; |
274 | ||
2e35f56f JS |
275 | if (m_mainWidget) |
276 | XtRemoveEventHandler((Widget) m_mainWidget, ExposureMask, FALSE, | |
277 | wxUniversalRepaintProc, (XtPointer) this); | |
dfe1eee3 | 278 | |
dfc54541 | 279 | m_modalShowing = FALSE; |
dfad0599 | 280 | if (!wxUSE_INVISIBLE_RESIZE && m_mainWidget) |
dfc54541 | 281 | { |
2d120f83 | 282 | XtUnmapWidget((Widget) m_mainWidget); |
dfc54541 | 283 | } |
dfe1eee3 | 284 | |
4bb6408c | 285 | wxTopLevelWindows.DeleteObject(this); |
dfe1eee3 | 286 | |
4bb6408c | 287 | if ( (GetWindowStyleFlag() & wxDIALOG_MODAL) != wxDIALOG_MODAL ) |
2d120f83 | 288 | wxModelessWindows.DeleteObject(this); |
dfe1eee3 | 289 | |
4bb6408c JS |
290 | // If this is the last top-level window, exit. |
291 | if (wxTheApp && (wxTopLevelWindows.Number() == 0)) | |
292 | { | |
2d120f83 | 293 | wxTheApp->SetTopWindow(NULL); |
dfe1eee3 | 294 | |
2d120f83 JS |
295 | if (wxTheApp->GetExitOnFrameDelete()) |
296 | { | |
297 | wxTheApp->ExitMainLoop(); | |
298 | } | |
4bb6408c | 299 | } |
dfe1eee3 | 300 | |
dfc54541 JS |
301 | // This event-flushing code used to be in wxWindow::PostDestroyChildren (wx_dialog.cpp) |
302 | // but I think this should work, if we destroy the children first. | |
303 | // Note that this might need to be done for wxFrame also. | |
304 | DestroyChildren(); | |
cba2db0c JS |
305 | |
306 | // The idea about doing it here is that if you have to remove the | |
307 | // XtDestroyWidget from ~wxWindow, at least top-level windows | |
308 | // will still be deleted (and destroy children implicitly). | |
309 | if (GetMainWidget()) | |
310 | { | |
311 | DetachWidget(GetMainWidget()); // Removes event handlers | |
312 | XtDestroyWidget((Widget) GetMainWidget()); | |
313 | SetMainWidget((WXWidget) NULL); | |
dfc54541 | 314 | } |
4bb6408c JS |
315 | } |
316 | ||
317 | // By default, pressing escape cancels the dialog | |
318 | void wxDialog::OnCharHook(wxKeyEvent& event) | |
319 | { | |
2d120f83 JS |
320 | if (event.m_keyCode == WXK_ESCAPE) |
321 | { | |
322 | // Behaviour changed in 2.0: we'll send a Cancel message | |
323 | // to the dialog instead of Close. | |
324 | wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL); | |
325 | cancelEvent.SetEventObject( this ); | |
326 | GetEventHandler()->ProcessEvent(cancelEvent); | |
dfe1eee3 | 327 | |
2d120f83 JS |
328 | return; |
329 | } | |
330 | // We didn't process this event. | |
331 | event.Skip(); | |
4bb6408c JS |
332 | } |
333 | ||
334 | void wxDialog::Iconize(bool WXUNUSED(iconize)) | |
335 | { | |
2d120f83 JS |
336 | // Can't iconize a dialog in Motif, apparently |
337 | // TODO: try using the parent of m_mainShell. | |
338 | // XtVaSetValues((Widget) m_mainWidget, XmNiconic, iconize, NULL); | |
4bb6408c JS |
339 | } |
340 | ||
8e877c19 RR |
341 | // Default resizing behaviour - if only ONE subwindow, |
342 | // resize to client rectangle size | |
af111fc3 | 343 | void wxDialog::OnSize(wxSizeEvent& WXUNUSED(event)) |
8e877c19 RR |
344 | { |
345 | // if we're using constraints - do use them | |
346 | #if wxUSE_CONSTRAINTS | |
347 | if ( GetAutoLayout() ) { | |
348 | Layout(); | |
349 | return; | |
350 | } | |
351 | #endif | |
352 | ||
353 | // do we have _exactly_ one child? | |
354 | wxWindow *child = NULL; | |
355 | for ( wxNode *node = GetChildren().First(); node; node = node->Next() ) | |
356 | { | |
357 | wxWindow *win = (wxWindow *)node->Data(); | |
358 | if ( !win->IsKindOf(CLASSINFO(wxFrame)) && | |
359 | !win->IsKindOf(CLASSINFO(wxDialog)) ) | |
360 | { | |
361 | if ( child ) | |
362 | return; // it's our second subwindow - nothing to do | |
363 | child = win; | |
364 | } | |
365 | } | |
366 | ||
367 | if ( child ) { | |
368 | // we have exactly one child - set it's size to fill the whole frame | |
369 | int clientW, clientH; | |
370 | GetClientSize(&clientW, &clientH); | |
371 | ||
372 | int x = 0; | |
373 | int y = 0; | |
374 | ||
375 | child->SetSize(x, y, clientW, clientH); | |
376 | } | |
377 | } | |
378 | ||
379 | ||
4bb6408c JS |
380 | bool wxDialog::IsIconized() const |
381 | { | |
2d120f83 JS |
382 | /* |
383 | Boolean iconic; | |
384 | XtVaGetValues((Widget) m_mainWidget, XmNiconic, &iconic, NULL); | |
dfc54541 | 385 | |
2d120f83 JS |
386 | return iconic; |
387 | */ | |
4bb6408c JS |
388 | return FALSE; |
389 | } | |
390 | ||
bfc6fde4 | 391 | void wxDialog::DoSetSize(int x, int y, int width, int height, int sizeFlags) |
4bb6408c | 392 | { |
dfc54541 | 393 | XtVaSetValues((Widget) m_mainWidget, XmNresizePolicy, XmRESIZE_ANY, NULL); |
bfc6fde4 | 394 | wxWindow::DoSetSize(x, y, width, height, sizeFlags); |
dfc54541 | 395 | XtVaSetValues((Widget) m_mainWidget, XmNresizePolicy, XmRESIZE_NONE, NULL); |
4bb6408c JS |
396 | } |
397 | ||
ad813b00 JS |
398 | void wxDialog::DoSetClientSize(int width, int height) |
399 | { | |
400 | wxWindow::SetSize(-1, -1, width, height); | |
401 | } | |
402 | ||
4bb6408c JS |
403 | void wxDialog::SetTitle(const wxString& title) |
404 | { | |
dfc54541 JS |
405 | m_dialogTitle = title; |
406 | if (!title.IsNull()) | |
407 | { | |
408 | XmString str = XmStringCreateSimple((char*) (const char*) title); | |
dfe1eee3 | 409 | XtVaSetValues((Widget) m_mainWidget, |
2d120f83 JS |
410 | XmNtitle, (char*) (const char*) title, |
411 | XmNdialogTitle, str, // Roberto Cocchi | |
412 | XmNiconName, (char*) (const char*) title, | |
413 | NULL); | |
dfc54541 JS |
414 | XmStringFree(str); |
415 | } | |
4bb6408c JS |
416 | } |
417 | ||
418 | wxString wxDialog::GetTitle() const | |
419 | { | |
2d120f83 | 420 | return m_dialogTitle; |
4bb6408c JS |
421 | } |
422 | ||
dfc54541 JS |
423 | void wxDialog::Raise() |
424 | { | |
425 | Window parent_window = XtWindow((Widget) m_mainWidget), | |
2d120f83 JS |
426 | next_parent = XtWindow((Widget) m_mainWidget), |
427 | root = RootWindowOfScreen(XtScreen((Widget) m_mainWidget)); | |
dfc54541 JS |
428 | // search for the parent that is child of ROOT, because the WM may |
429 | // reparent twice and notify only the next parent (like FVWM) | |
430 | while (next_parent != root) { | |
2d120f83 JS |
431 | Window *theChildren; unsigned int n; |
432 | parent_window = next_parent; | |
433 | XQueryTree(XtDisplay((Widget) m_mainWidget), parent_window, &root, | |
434 | &next_parent, &theChildren, &n); | |
435 | XFree(theChildren); // not needed | |
dfc54541 JS |
436 | } |
437 | XRaiseWindow(XtDisplay((Widget) m_mainWidget), parent_window); | |
438 | } | |
439 | ||
440 | void wxDialog::Lower() | |
441 | { | |
442 | Window parent_window = XtWindow((Widget) m_mainWidget), | |
2d120f83 JS |
443 | next_parent = XtWindow((Widget) m_mainWidget), |
444 | root = RootWindowOfScreen(XtScreen((Widget) m_mainWidget)); | |
dfc54541 JS |
445 | // search for the parent that is child of ROOT, because the WM may |
446 | // reparent twice and notify only the next parent (like FVWM) | |
447 | while (next_parent != root) { | |
2d120f83 JS |
448 | Window *theChildren; unsigned int n; |
449 | parent_window = next_parent; | |
450 | XQueryTree(XtDisplay((Widget) m_mainWidget), parent_window, &root, | |
451 | &next_parent, &theChildren, &n); | |
452 | XFree(theChildren); // not needed | |
dfc54541 JS |
453 | } |
454 | XLowerWindow(XtDisplay((Widget) m_mainWidget), parent_window); | |
455 | } | |
456 | ||
457 | bool wxDialog::Show(bool show) | |
458 | { | |
459 | m_isShown = show; | |
dfe1eee3 | 460 | |
dfc54541 JS |
461 | if (show) |
462 | { | |
dfad0599 | 463 | if (!wxUSE_INVISIBLE_RESIZE) |
2d120f83 | 464 | XtMapWidget(XtParent((Widget) m_mainWidget)); |
dfc54541 | 465 | else |
dfe1eee3 VZ |
466 | XtManageChild((Widget) m_mainWidget) ; |
467 | ||
dfc54541 | 468 | XRaiseWindow(XtDisplay((Widget) m_mainWidget), XtWindow((Widget) m_mainWidget)); |
dfe1eee3 | 469 | |
dfc54541 JS |
470 | } |
471 | else | |
472 | { | |
dfad0599 | 473 | if (!wxUSE_INVISIBLE_RESIZE) |
dfc54541 JS |
474 | XtUnmapWidget(XtParent((Widget) m_mainWidget)); |
475 | else | |
476 | XtUnmanageChild((Widget) m_mainWidget) ; | |
dfe1eee3 | 477 | |
2d120f83 JS |
478 | XFlush(XtDisplay((Widget) wxTheApp->GetTopLevelWidget())); |
479 | XSync(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()), FALSE); | |
dfc54541 | 480 | } |
dfe1eee3 | 481 | |
dfc54541 JS |
482 | return TRUE; |
483 | } | |
484 | ||
485 | // Shows a dialog modally, returning a return code | |
4bb6408c JS |
486 | int wxDialog::ShowModal() |
487 | { | |
488 | m_windowStyle |= wxDIALOG_MODAL; | |
dfe1eee3 | 489 | |
dfc54541 | 490 | Show(TRUE); |
dfe1eee3 | 491 | |
dfc54541 JS |
492 | if (m_modalShowing) |
493 | return 0; | |
dfe1eee3 | 494 | |
dfc54541 | 495 | wxModalShowingStack.Insert((wxObject *)TRUE); |
dfe1eee3 | 496 | |
dfc54541 | 497 | m_modalShowing = TRUE; |
793f619f | 498 | XtAddGrab((Widget) m_mainWidget, TRUE, FALSE); |
dfe1eee3 | 499 | |
dfc54541 | 500 | XEvent event; |
dfe1eee3 | 501 | |
dfc54541 | 502 | // Loop until we signal that the dialog should be closed |
5dcf05ae | 503 | while ((wxModalShowingStack.Number() > 0) && ((int)(wxModalShowingStack.First()->Data()) != 0)) |
dfc54541 | 504 | { |
2d120f83 | 505 | // XtAppProcessEvent((XtAppContext) wxTheApp->GetAppContext(), XtIMAll); |
dfe1eee3 | 506 | |
8aa04e8b JS |
507 | XtAppNextEvent((XtAppContext) wxTheApp->GetAppContext(), &event); |
508 | wxTheApp->ProcessXEvent((WXEvent*) &event); | |
f6bcfd97 BP |
509 | |
510 | if (XtAppPending( (XtAppContext) wxTheApp->GetAppContext() ) == 0) | |
511 | { | |
512 | if (!wxTheApp->ProcessIdle()) | |
513 | { | |
514 | #if wxUSE_THREADS | |
515 | // leave the main loop to give other threads a chance to | |
516 | // perform their GUI work | |
517 | wxMutexGuiLeave(); | |
518 | wxUsleep(20); | |
519 | wxMutexGuiEnter(); | |
520 | #endif | |
521 | } | |
522 | } | |
dfc54541 | 523 | } |
dfe1eee3 | 524 | |
dfc54541 JS |
525 | // Remove modal dialog flag from stack |
526 | wxNode *node = wxModalShowingStack.First(); | |
527 | if (node) | |
2d120f83 | 528 | delete node; |
dfe1eee3 | 529 | |
dfc54541 JS |
530 | // Now process all events in case they get sent to a destroyed dialog |
531 | XSync(XtDisplay((Widget) wxTheApp->GetTopLevelWidget()), FALSE); | |
532 | while (XtAppPending((XtAppContext) wxTheApp->GetAppContext())) | |
533 | { | |
534 | XFlush(XtDisplay((Widget) wxTheApp->GetTopLevelWidget())); | |
535 | XtAppNextEvent((XtAppContext) wxTheApp->GetAppContext(), &event); | |
dfe1eee3 | 536 | |
8aa04e8b | 537 | wxTheApp->ProcessXEvent((WXEvent*) &event); |
dfc54541 | 538 | } |
dfe1eee3 | 539 | |
dfc54541 JS |
540 | // TODO: is it safe to call this, if the dialog may have been deleted |
541 | // by now? Probably only if we're using delayed deletion of dialogs. | |
542 | return GetReturnCode(); | |
4bb6408c JS |
543 | } |
544 | ||
545 | void wxDialog::EndModal(int retCode) | |
546 | { | |
dfc54541 JS |
547 | if (!m_modalShowing) |
548 | return; | |
dfe1eee3 | 549 | |
dfc54541 | 550 | SetReturnCode(retCode); |
dfe1eee3 | 551 | |
88150e60 JS |
552 | // Strangely, we don't seem to need this now. |
553 | // XtRemoveGrab((Widget) m_mainWidget); | |
dfe1eee3 | 554 | |
dfc54541 | 555 | Show(FALSE); |
dfe1eee3 | 556 | |
dfc54541 | 557 | m_modalShowing = FALSE; |
dfe1eee3 | 558 | |
dfc54541 JS |
559 | wxNode *node = wxModalShowingStack.First(); |
560 | if (node) | |
2d120f83 | 561 | node->SetData((wxObject *)FALSE); |
4bb6408c JS |
562 | } |
563 | ||
564 | // Standard buttons | |
f9e02ac7 | 565 | void wxDialog::OnOK(wxCommandEvent& WXUNUSED(event)) |
4bb6408c | 566 | { |
2d120f83 JS |
567 | if ( Validate() && TransferDataFromWindow() ) |
568 | { | |
4bb6408c JS |
569 | if ( IsModal() ) |
570 | EndModal(wxID_OK); | |
571 | else | |
572 | { | |
2d120f83 JS |
573 | SetReturnCode(wxID_OK); |
574 | this->Show(FALSE); | |
4bb6408c | 575 | } |
2d120f83 | 576 | } |
4bb6408c JS |
577 | } |
578 | ||
f9e02ac7 | 579 | void wxDialog::OnApply(wxCommandEvent& WXUNUSED(event)) |
4bb6408c | 580 | { |
2d120f83 JS |
581 | if (Validate()) |
582 | TransferDataFromWindow(); | |
583 | // TODO probably need to disable the Apply button until things change again | |
4bb6408c JS |
584 | } |
585 | ||
f9e02ac7 | 586 | void wxDialog::OnCancel(wxCommandEvent& WXUNUSED(event)) |
4bb6408c JS |
587 | { |
588 | if ( IsModal() ) | |
589 | EndModal(wxID_CANCEL); | |
590 | else | |
591 | { | |
592 | SetReturnCode(wxID_CANCEL); | |
2d120f83 | 593 | this->Show(FALSE); |
4bb6408c JS |
594 | } |
595 | } | |
596 | ||
af111fc3 | 597 | void wxDialog::OnCloseWindow(wxCloseEvent& WXUNUSED(event)) |
4bb6408c | 598 | { |
e3065973 | 599 | // We'll send a Cancel message by default, |
4bb6408c | 600 | // which may close the dialog. |
e3065973 JS |
601 | // Check for looping if the Cancel event handler calls Close(). |
602 | ||
603 | // Note that if a cancel button and handler aren't present in the dialog, | |
604 | // nothing will happen when you close the dialog via the window manager, or | |
605 | // via Close(). | |
606 | // We wouldn't want to destroy the dialog by default, since the dialog may have been | |
607 | // created on the stack. | |
608 | // However, this does mean that calling dialog->Close() won't delete the dialog | |
609 | // unless the handler for wxID_CANCEL does so. So use Destroy() if you want to be | |
610 | // sure to destroy the dialog. | |
611 | // The default OnCancel (above) simply ends a modal dialog, and hides a modeless dialog. | |
612 | ||
4bb6408c | 613 | static wxList closing; |
dfe1eee3 | 614 | |
4bb6408c | 615 | if ( closing.Member(this) ) |
e3065973 | 616 | return; |
dfe1eee3 | 617 | |
4bb6408c | 618 | closing.Append(this); |
dfe1eee3 | 619 | |
2d120f83 JS |
620 | wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL); |
621 | cancelEvent.SetEventObject( this ); | |
e3065973 | 622 | GetEventHandler()->ProcessEvent(cancelEvent); // This may close the dialog |
4bb6408c | 623 | |
e3065973 | 624 | closing.DeleteObject(this); |
4bb6408c JS |
625 | } |
626 | ||
d75638f8 RR |
627 | void wxDialog::OnPaint(wxPaintEvent &WXUNUSED(event)) |
628 | { | |
629 | // added for compatiblity only | |
630 | } | |
631 | ||
4bb6408c JS |
632 | // Destroy the window (delayed, if a managed window) |
633 | bool wxDialog::Destroy() | |
634 | { | |
2d120f83 JS |
635 | if (!wxPendingDelete.Member(this)) |
636 | wxPendingDelete.Append(this); | |
637 | return TRUE; | |
4bb6408c JS |
638 | } |
639 | ||
f9e02ac7 | 640 | void wxDialog::OnSysColourChanged(wxSysColourChangedEvent& WXUNUSED(event)) |
4bb6408c | 641 | { |
a756f210 | 642 | SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE)); |
2d120f83 | 643 | Refresh(); |
4bb6408c JS |
644 | } |
645 | ||
dfc54541 | 646 | // Handle a close event from the window manager |
dfe1eee3 | 647 | static void wxCloseDialogCallback( Widget WXUNUSED(widget), XtPointer client_data, |
2d120f83 | 648 | XmAnyCallbackStruct *WXUNUSED(cbs)) |
dfc54541 | 649 | { |
2d120f83 JS |
650 | wxDialog *dialog = (wxDialog *)client_data; |
651 | wxCloseEvent closeEvent(wxEVT_CLOSE_WINDOW, dialog->GetId()); | |
652 | closeEvent.SetEventObject(dialog); | |
dfe1eee3 | 653 | |
2d120f83 JS |
654 | // May delete the dialog (with delayed deletion) |
655 | dialog->GetEventHandler()->ProcessEvent(closeEvent); | |
dfc54541 JS |
656 | } |
657 | ||
dfe1eee3 VZ |
658 | void wxDialogBoxEventHandler(Widget wid, |
659 | XtPointer WXUNUSED(client_data), | |
660 | XEvent* event, | |
661 | Boolean* continueToDispatch) | |
2d120f83 | 662 | { |
dfe1eee3 | 663 | wxDialog *dialog = (wxDialog *)wxGetWindowFromTable(wid); |
2d120f83 | 664 | if (dialog) |
dfc54541 | 665 | { |
2d120f83 JS |
666 | wxMouseEvent wxevent(wxEVT_NULL); |
667 | if (wxTranslateMouseEvent(wxevent, dialog, wid, event)) | |
dfc54541 | 668 | { |
2d120f83 JS |
669 | wxevent.SetEventObject(dialog); |
670 | wxevent.SetId(dialog->GetId()); | |
671 | dialog->GetEventHandler()->ProcessEvent(wxevent); | |
dfc54541 JS |
672 | } |
673 | else | |
674 | { | |
2d120f83 JS |
675 | // An attempt to implement OnCharHook by calling OnCharHook first; |
676 | // if this returns TRUE, set continueToDispatch to False | |
677 | // (don't continue processing). | |
678 | // Otherwise set it to True and call OnChar. | |
c75e6695 | 679 | wxKeyEvent keyEvent(wxEVT_CHAR); |
2d120f83 JS |
680 | if (wxTranslateKeyEvent(keyEvent, dialog, wid, event)) |
681 | { | |
682 | keyEvent.SetEventObject(dialog); | |
683 | keyEvent.SetId(dialog->GetId()); | |
684 | keyEvent.SetEventType(wxEVT_CHAR_HOOK); | |
685 | if (dialog->GetEventHandler()->ProcessEvent(keyEvent)) | |
686 | { | |
687 | *continueToDispatch = False; | |
688 | return; | |
689 | } | |
690 | else | |
691 | { | |
a91b47e8 JS |
692 | // For simplicity, OnKeyDown is the same as OnChar |
693 | // TODO: filter modifier key presses from OnChar | |
694 | keyEvent.SetEventType(wxEVT_KEY_DOWN); | |
695 | ||
696 | // Only process OnChar if OnKeyDown didn't swallow it | |
697 | if (!dialog->GetEventHandler()->ProcessEvent (keyEvent)) | |
698 | { | |
699 | keyEvent.SetEventType(wxEVT_CHAR); | |
700 | dialog->GetEventHandler()->ProcessEvent(keyEvent); | |
dfe1eee3 | 701 | } |
2d120f83 JS |
702 | } |
703 | } | |
704 | } | |
dfc54541 | 705 | } |
2d120f83 | 706 | *continueToDispatch = True; |
dfc54541 JS |
707 | } |
708 | ||
f9e02ac7 | 709 | static void wxUnmapBulletinBoard(Widget WXUNUSED(dialog), wxDialog *WXUNUSED(client), XtPointer WXUNUSED(call) ) |
dfc54541 | 710 | { |
2d120f83 JS |
711 | /* This gets called when the dialog is being shown, which |
712 | * defeats modal showing. | |
713 | client->m_modalShowing = FALSE ; | |
714 | client->m_isShown = FALSE; | |
715 | */ | |
dfc54541 | 716 | } |
0d57be45 | 717 | |
94b49b93 | 718 | void wxDialog::ChangeFont(bool keepOriginalSize) |
0d57be45 | 719 | { |
94b49b93 | 720 | wxWindow::ChangeFont(keepOriginalSize); |
0d57be45 JS |
721 | } |
722 | ||
723 | void wxDialog::ChangeBackgroundColour() | |
724 | { | |
94b49b93 JS |
725 | if (GetMainWidget()) |
726 | DoChangeBackgroundColour(GetMainWidget(), m_backgroundColour); | |
0d57be45 JS |
727 | } |
728 | ||
729 | void wxDialog::ChangeForegroundColour() | |
730 | { | |
94b49b93 JS |
731 | if (GetMainWidget()) |
732 | DoChangeForegroundColour(GetMainWidget(), m_foregroundColour); | |
0d57be45 JS |
733 | } |
734 |