]> git.saurik.com Git - wxWidgets.git/blame_incremental - src/mac/carbon/dialog.cpp
fixed crash introduced in v1.41
[wxWidgets.git] / src / mac / carbon / dialog.cpp
... / ...
CommitLineData
1/////////////////////////////////////////////////////////////////////////////
2// Name: dialog.cpp
3// Purpose: wxDialog class
4// Author: Stefan Csomor
5// Modified by:
6// Created: 1998-01-01
7// RCS-ID: $Id$
8// Copyright: (c) Stefan Csomor
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
11
12#include "wx/wxprec.h"
13
14#include "wx/dialog.h"
15#include "wx/utils.h"
16#include "wx/frame.h"
17#include "wx/app.h"
18#include "wx/settings.h"
19
20#include "wx/mac/uma.h"
21
22
23// Lists to keep track of windows, so we can disable/enable them
24// for modal dialogs
25wxList wxModalDialogs;
26
27extern wxList wxPendingDelete;
28
29IMPLEMENT_DYNAMIC_CLASS(wxDialog, wxTopLevelWindow)
30
31BEGIN_EVENT_TABLE(wxDialog, wxDialogBase)
32 EVT_BUTTON(wxID_OK, wxDialog::OnOK)
33 EVT_BUTTON(wxID_APPLY, wxDialog::OnApply)
34 EVT_BUTTON(wxID_CANCEL, wxDialog::OnCancel)
35
36 EVT_CHAR_HOOK(wxDialog::OnCharHook)
37
38 EVT_SYS_COLOUR_CHANGED(wxDialog::OnSysColourChanged)
39
40 EVT_CLOSE(wxDialog::OnCloseWindow)
41END_EVENT_TABLE()
42
43
44void wxDialog::Init()
45{
46 m_isModalStyle = false;
47}
48
49bool wxDialog::Create( wxWindow *parent,
50 wxWindowID id,
51 const wxString& title,
52 const wxPoint& pos,
53 const wxSize& size,
54 long style,
55 const wxString& name )
56{
57 SetExtraStyle( GetExtraStyle() | wxTOPLEVEL_EX_DIALOG );
58
59 // All dialogs should really have this style...
60 style |= wxTAB_TRAVERSAL;
61
62 // ...but not these styles
63 style &= ~(wxYES | wxOK | wxNO); // | wxCANCEL
64
65 if ( !wxTopLevelWindow::Create( parent, id, title, pos, size, style, name ) )
66 return false;
67
68 HIViewRef growBoxRef = 0 ;
69 OSStatus err = HIViewFindByID( HIViewGetRoot( (WindowRef)m_macWindow ), kHIViewWindowGrowBoxID, &growBoxRef );
70 if ( err == noErr && growBoxRef != 0 )
71 HIGrowBoxViewSetTransparent( growBoxRef, true ) ;
72
73 return true;
74}
75
76void wxDialog::SetModal( bool flag )
77{
78 if ( flag )
79 {
80 m_isModalStyle = true;
81
82 wxModelessWindows.DeleteObject( this );
83
84#if TARGET_CARBON
85 SetWindowModality( (WindowRef)MacGetWindowRef(), kWindowModalityAppModal, NULL ) ;
86#endif
87 }
88 else
89 {
90 m_isModalStyle = false;
91
92 wxModelessWindows.Append( this );
93 }
94}
95
96wxDialog::~wxDialog()
97{
98 m_isBeingDeleted = true;
99 Show(false);
100}
101
102// By default, pressing escape cancels the dialog; on mac command-stop does the same thing
103void wxDialog::OnCharHook(wxKeyEvent& event)
104{
105 if (( event.m_keyCode == WXK_ESCAPE ||
106 ( event.m_keyCode == '.' && event.MetaDown() ) )
107 && FindWindow(wxID_CANCEL) )
108 {
109 // Behaviour changed in 2.0: we'll send a Cancel message
110 // to the dialog instead of Close.
111 wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
112 cancelEvent.SetEventObject( this );
113 GetEventHandler()->ProcessEvent(cancelEvent);
114
115 return;
116 }
117
118 // We didn't process this event.
119 event.Skip();
120}
121
122bool wxDialog::IsModal() const
123{
124 return wxModalDialogs.Find((wxDialog *)this) != NULL; // const_cast
125 // return m_isModalStyle;
126}
127
128
129bool wxDialog::IsModalShowing() const
130{
131 return wxModalDialogs.Find((wxDialog *)this) != NULL; // const_cast
132}
133
134bool wxDialog::Show(bool show)
135{
136 if ( !wxDialogBase::Show(show) )
137 // nothing to do
138 return false;
139
140 if ( show )
141 // usually will result in TransferDataToWindow() being called
142 InitDialog();
143
144 if ( m_isModalStyle )
145 {
146 if ( show )
147 {
148 DoShowModal();
149 }
150 else // end of modal dialog
151 {
152 // this will cause IsModalShowing() return false and our local
153 // message loop will terminate
154 wxModalDialogs.DeleteObject(this);
155 }
156 }
157
158 return true;
159}
160
161#if !TARGET_CARBON
162extern bool s_macIsInModalLoop ;
163#endif
164
165void wxDialog::DoShowModal()
166{
167 wxCHECK_RET( !IsModalShowing(), wxT("DoShowModal() called twice") );
168
169 wxModalDialogs.Append(this);
170
171 SetFocus() ;
172
173#if TARGET_CARBON
174 BeginAppModalStateForWindow( (WindowRef) MacGetWindowRef()) ;
175#else
176 // TODO : test whether parent gets disabled
177 bool formerModal = s_macIsInModalLoop ;
178 s_macIsInModalLoop = true ;
179#endif
180
181 while ( IsModalShowing() )
182 {
183 wxTheApp->MacDoOneEvent() ;
184 // calls process idle itself
185 }
186
187#if TARGET_CARBON
188 EndAppModalStateForWindow( (WindowRef) MacGetWindowRef() ) ;
189#else
190 // TODO probably reenable the parent window if any
191 s_macIsInModalLoop = formerModal ;
192#endif
193}
194
195
196// Replacement for Show(true) for modal dialogs - returns return code
197int wxDialog::ShowModal()
198{
199 if ( !m_isModalStyle )
200 SetModal(true);
201
202 Show(true);
203
204 return GetReturnCode();
205}
206
207// NB: this function (surprizingly) may be called for both modal and modeless
208// dialogs and should work for both of them
209void wxDialog::EndModal(int retCode)
210{
211 SetReturnCode(retCode);
212 Show(false);
213 SetModal(false);
214}
215
216// Standard buttons
217void wxDialog::OnOK(wxCommandEvent& WXUNUSED(event))
218{
219 if ( Validate() && TransferDataFromWindow() )
220 EndModal(wxID_OK);
221}
222
223void wxDialog::OnApply(wxCommandEvent& WXUNUSED(event))
224{
225 if (Validate())
226 TransferDataFromWindow();
227
228 // TODO probably need to disable the Apply button until things change again
229}
230
231void wxDialog::OnCancel(wxCommandEvent& WXUNUSED(event))
232{
233 EndModal(wxID_CANCEL);
234}
235
236void wxDialog::OnCloseWindow(wxCloseEvent& WXUNUSED(event))
237{
238 // We'll send a Cancel message by default,
239 // which may close the dialog.
240 // Check for looping if the Cancel event handler calls Close().
241
242 // Note that if a cancel button and handler aren't present in the dialog,
243 // nothing will happen when you close the dialog via the window manager, or
244 // via Close().
245 // We wouldn't want to destroy the dialog by default, since the dialog may have been
246 // created on the stack.
247 // However, this does mean that calling dialog->Close() won't delete the dialog
248 // unless the handler for wxID_CANCEL does so. So use Destroy() if you want to be
249 // sure to destroy the dialog.
250 // The default OnCancel (above) simply ends a modal dialog, and hides a modeless dialog.
251
252 static wxList closing;
253
254 if ( closing.Member(this) )
255 return;
256
257 closing.Append(this);
258
259 wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
260 cancelEvent.SetEventObject( this );
261 GetEventHandler()->ProcessEvent(cancelEvent); // This may close the dialog
262
263 closing.DeleteObject(this);
264}
265
266void wxDialog::OnSysColourChanged(wxSysColourChangedEvent& WXUNUSED(event))
267{
268 SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE));
269 Refresh();
270}
271