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