]> git.saurik.com Git - wxWidgets.git/blame - src/msw/evtloop.cpp
Fix by George Wismer to get flat toolbars under Windows Classic style,
[wxWidgets.git] / src / msw / evtloop.cpp
CommitLineData
3808e191
JS
1///////////////////////////////////////////////////////////////////////////////
2// Name: msw/evtloop.cpp
3// Purpose: implements wxEventLoop for MSW
4// Author: Vadim Zeitlin
5// Modified by:
6// Created: 01.06.01
7// RCS-ID: $Id$
8// Copyright: (c) 2001 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
65571936 9// License: wxWindows licence
3808e191
JS
10///////////////////////////////////////////////////////////////////////////////
11
12// ============================================================================
13// declarations
14// ============================================================================
15
16// ----------------------------------------------------------------------------
17// headers
18// ----------------------------------------------------------------------------
19
14f355c2 20#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
3808e191
JS
21 #pragma implementation "evtloop.h"
22#endif
23
24// For compilers that support precompilation, includes "wx.h".
25#include "wx/wxprec.h"
26
27#ifdef __BORLANDC__
28 #pragma hdrstop
29#endif
30
31#ifndef WX_PRECOMP
6c0e8b4e
VZ
32 #include "wx/window.h"
33 #include "wx/app.h"
3808e191
JS
34#endif //WX_PRECOMP
35
36#include "wx/evtloop.h"
4300caa7 37
0cd7d9b2 38#include "wx/tooltip.h"
4300caa7
VZ
39#include "wx/except.h"
40#include "wx/ptr_scpd.h"
3808e191
JS
41
42#include "wx/msw/private.h"
43
0cd7d9b2 44#if wxUSE_THREADS
4300caa7
VZ
45 #include "wx/thread.h"
46
0cd7d9b2
VS
47 // define the array of MSG strutures
48 WX_DECLARE_OBJARRAY(MSG, wxMsgArray);
4300caa7
VZ
49
50 #include "wx/arrimpl.cpp"
51
52 WX_DEFINE_OBJARRAY(wxMsgArray);
53#endif // wxUSE_THREADS
0cd7d9b2 54
4300caa7
VZ
55// ----------------------------------------------------------------------------
56// helper class
57// ----------------------------------------------------------------------------
58
4300caa7
VZ
59// this object sets the wxEventLoop given to the ctor as the currently active
60// one and unsets it in its dtor
61class wxEventLoopActivator
62{
63public:
64 wxEventLoopActivator(wxEventLoop **pActive,
65 wxEventLoop *evtLoop)
66 {
67 m_pActive = pActive;
68 m_evtLoopOld = *pActive;
69 *pActive = evtLoop;
70 }
71
72 ~wxEventLoopActivator()
73 {
74 // restore the previously active event loop
75 *m_pActive = m_evtLoopOld;
76 }
77
78private:
79 wxEventLoop *m_evtLoopOld;
80 wxEventLoop **m_pActive;
81};
82
3808e191 83// ============================================================================
3754265e 84// wxEventLoop implementation
3808e191
JS
85// ============================================================================
86
3754265e
VZ
87wxEventLoop *wxEventLoopBase::ms_activeLoop = NULL;
88
3808e191 89// ----------------------------------------------------------------------------
3754265e 90// ctor/dtor
3808e191
JS
91// ----------------------------------------------------------------------------
92
3754265e
VZ
93wxEventLoop::wxEventLoop()
94{
95 m_shouldExit = false;
96 m_exitcode = 0;
97}
98
99// ----------------------------------------------------------------------------
100// wxEventLoop message processing
101// ----------------------------------------------------------------------------
102
103void wxEventLoop::ProcessMessage(WXMSG *msg)
3808e191
JS
104{
105 // give us the chance to preprocess the message first
106 if ( !PreProcessMessage(msg) )
107 {
108 // if it wasn't done, dispatch it to the corresponding window
109 ::TranslateMessage(msg);
110 ::DispatchMessage(msg);
111 }
112}
113
3754265e 114bool wxEventLoop::PreProcessMessage(WXMSG *msg)
3808e191 115{
ac8d0c11
VZ
116 HWND hwnd = msg->hwnd;
117 wxWindow *wndThis = wxGetWindowFromHWND((WXHWND)hwnd);
118
119 // this may happen if the event occured in a standard modeless dialog (the
120 // only example of which I know of is the find/replace dialog) - then call
121 // IsDialogMessage() to make TAB navigation in it work
122 if ( !wndThis )
123 {
124 // we need to find the dialog containing this control as
3754265e 125 // IsDialogMessage() just eats all the messages (i.e. returns true for
ac8d0c11
VZ
126 // them) if we call it for the control itself
127 while ( hwnd && ::GetWindowLong(hwnd, GWL_STYLE) & WS_CHILD )
128 {
129 hwnd = ::GetParent(hwnd);
130 }
131
132 return hwnd && ::IsDialogMessage(hwnd, msg) != 0;
133 }
3808e191
JS
134
135#if wxUSE_TOOLTIPS
136 // we must relay WM_MOUSEMOVE events to the tooltip ctrl if we want it to
137 // popup the tooltip bubbles
ac8d0c11 138 if ( msg->message == WM_MOUSEMOVE )
3808e191
JS
139 {
140 wxToolTip *tt = wndThis->GetToolTip();
141 if ( tt )
142 {
143 tt->RelayEvent((WXMSG *)msg);
144 }
145 }
146#endif // wxUSE_TOOLTIPS
147
ac8d0c11
VZ
148 // allow the window to prevent certain messages from being
149 // translated/processed (this is currently used by wxTextCtrl to always
150 // grab Ctrl-C/V/X, even if they are also accelerators in some parent)
151 if ( !wndThis->MSWShouldPreProcessMessage((WXMSG *)msg) )
152 {
3754265e 153 return false;
ac8d0c11
VZ
154 }
155
156 // try translations first: the accelerators override everything
3808e191 157 wxWindow *wnd;
ac8d0c11 158
3808e191
JS
159 for ( wnd = wndThis; wnd; wnd = wnd->GetParent() )
160 {
ac8d0c11 161 if ( wnd->MSWTranslateMessage((WXMSG *)msg))
3754265e 162 return true;
ac8d0c11
VZ
163
164 // stop at first top level window, i.e. don't try to process the key
165 // strokes originating in a dialog using the accelerators of the parent
166 // frame - this doesn't make much sense
167 if ( wnd->IsTopLevel() )
168 break;
3808e191
JS
169 }
170
ac8d0c11
VZ
171 // now try the other hooks (kbd navigation is handled here): we start from
172 // wndThis->GetParent() because wndThis->MSWProcessMessage() was already
173 // called above
174 for ( wnd = wndThis->GetParent(); wnd; wnd = wnd->GetParent() )
3808e191
JS
175 {
176 if ( wnd->MSWProcessMessage((WXMSG *)msg) )
3754265e 177 return true;
3808e191
JS
178 }
179
ac8d0c11 180 // no special preprocessing for this message, dispatch it normally
3754265e 181 return false;
cea62f9c
JS
182}
183
3808e191
JS
184// ----------------------------------------------------------------------------
185// wxEventLoop running and exiting
186// ----------------------------------------------------------------------------
187
3808e191
JS
188bool wxEventLoop::IsRunning() const
189{
3754265e 190 return ms_activeLoop == this;
3808e191
JS
191}
192
193int wxEventLoop::Run()
194{
195 // event loops are not recursive, you need to create another loop!
196 wxCHECK_MSG( !IsRunning(), -1, _T("can't reenter a message loop") );
197
3754265e 198 // ProcessIdle() and Dispatch() below may throw so the code here should
4300caa7
VZ
199 // be exception-safe, hence we must use local objects for all actions we
200 // should undo
201 wxEventLoopActivator activate(&ms_activeLoop, this);
4300caa7 202
2a8f35c3
VZ
203 // we must ensure that OnExit() is called even if an exception is thrown
204 // from inside Dispatch() but we must call it from Exit() in normal
205 // situations because it is supposed to be called synchronously,
206 // wxModalEventLoop depends on this (so we can't just use ON_BLOCK_EXIT or
207 // something similar here)
cea62f9c 208#if wxUSE_EXCEPTIONS
d284c075 209 for ( ;; )
3808e191 210 {
d284c075 211 try
2a8f35c3 212 {
d284c075
VZ
213#endif // wxUSE_EXCEPTIONS
214
215 // this is the event loop itself
216 for ( ;; )
f7550d73 217 {
d284c075
VZ
218 #if wxUSE_THREADS
219 wxMutexGuiLeaveOrEnter();
220 #endif // wxUSE_THREADS
221
222 // generate and process idle events for as long as we don't
223 // have anything else to do
3754265e 224 while ( !Pending() && (wxTheApp && wxTheApp->ProcessIdle()) )
d284c075
VZ
225 ;
226
227 // if the "should exit" flag is set, the loop should terminate
228 // but not before processing any remaining messages so while
229 // Pending() returns true, do process them
3754265e 230 if ( m_shouldExit )
d284c075
VZ
231 {
232 while ( Pending() )
233 Dispatch();
f7550d73 234
d284c075
VZ
235 break;
236 }
f7550d73 237
d284c075
VZ
238 // a message came or no more idle processing to do, sit in
239 // Dispatch() waiting for the next message
240 if ( !Dispatch() )
241 {
242 // we got WM_QUIT
243 break;
244 }
2a8f35c3 245 }
d284c075
VZ
246
247#if wxUSE_EXCEPTIONS
248 // exit the outer loop as well
249 break;
3808e191 250 }
d284c075
VZ
251 catch ( ... )
252 {
253 try
254 {
255 if ( !wxTheApp || !wxTheApp->OnExceptionInMainLoop() )
256 {
cea62f9c 257 OnExit();
cea62f9c 258 break;
d284c075
VZ
259 }
260 //else: continue running the event loop
261 }
262 catch ( ... )
263 {
264 // OnException() throwed, possibly rethrowing the same
265 // exception again: very good, but we still need OnExit() to
266 // be called
267 OnExit();
268 throw;
269 }
270 }
3808e191 271 }
d284c075 272#endif // wxUSE_EXCEPTIONS
3808e191 273
3754265e 274 return m_exitcode;
3808e191
JS
275}
276
277void wxEventLoop::Exit(int rc)
278{
279 wxCHECK_RET( IsRunning(), _T("can't call Exit() if not running") );
280
3754265e
VZ
281 m_exitcode = rc;
282 m_shouldExit = true;
3808e191 283
2a8f35c3
VZ
284 OnExit();
285
f7550d73
VZ
286 // all we have to do to exit from the loop is to (maybe) wake it up so that
287 // it can notice that Exit() had been called
288 //
289 // in particular, we do *not* use PostQuitMessage() here because we're not
290 // sure that WM_QUIT is going to be processed by the correct event loop: it
291 // is possible that another one is started before this one has a chance to
292 // process WM_QUIT
293 ::PostMessage(NULL, WM_NULL, 0, 0);
3808e191
JS
294}
295
296// ----------------------------------------------------------------------------
297// wxEventLoop message processing dispatching
298// ----------------------------------------------------------------------------
299
300bool wxEventLoop::Pending() const
301{
302 MSG msg;
303 return ::PeekMessage(&msg, 0, 0, 0, PM_NOREMOVE) != 0;
304}
305
306bool wxEventLoop::Dispatch()
307{
3754265e 308 wxCHECK_MSG( IsRunning(), false, _T("can't call Dispatch() if not running") );
3808e191
JS
309
310 MSG msg;
311 BOOL rc = ::GetMessage(&msg, (HWND) NULL, 0, 0);
312
313 if ( rc == 0 )
314 {
315 // got WM_QUIT
3754265e 316 return false;
3808e191
JS
317 }
318
319 if ( rc == -1 )
320 {
321 // should never happen, but let's test for it nevertheless
322 wxLogLastError(wxT("GetMessage"));
323
324 // still break from the loop
3754265e 325 return false;
3808e191
JS
326 }
327
328#if wxUSE_THREADS
329 wxASSERT_MSG( wxThread::IsMain(),
330 wxT("only the main thread can process Windows messages") );
331
3754265e 332 static bool s_hadGuiLock = true;
3808e191
JS
333 static wxMsgArray s_aSavedMessages;
334
335 // if a secondary thread owning the mutex is doing GUI calls, save all
336 // messages for later processing - we can't process them right now because
337 // it will lead to recursive library calls (and we're not reentrant)
338 if ( !wxGuiOwnedByMainThread() )
339 {
3754265e 340 s_hadGuiLock = false;
3808e191
JS
341
342 // leave out WM_COMMAND messages: too dangerous, sometimes
343 // the message will be processed twice
6c0e8b4e 344 if ( !wxIsWaitingForThread() || msg.message != WM_COMMAND )
3808e191 345 {
0cd7d9b2 346 s_aSavedMessages.Add(msg);
3808e191
JS
347 }
348
3754265e 349 return true;
3808e191
JS
350 }
351 else
352 {
353 // have we just regained the GUI lock? if so, post all of the saved
354 // messages
355 //
356 // FIXME of course, it's not _exactly_ the same as processing the
357 // messages normally - expect some things to break...
358 if ( !s_hadGuiLock )
359 {
3754265e 360 s_hadGuiLock = true;
3808e191
JS
361
362 size_t count = s_aSavedMessages.Count();
363 for ( size_t n = 0; n < count; n++ )
364 {
365 MSG& msg = s_aSavedMessages[n];
3754265e 366 ProcessMessage(&msg);
3808e191
JS
367 }
368
369 s_aSavedMessages.Empty();
370 }
371 }
372#endif // wxUSE_THREADS
373
3754265e 374 ProcessMessage(&msg);
3808e191 375
3754265e 376 return true;
3808e191
JS
377}
378