]> git.saurik.com Git - wxWidgets.git/blame - src/msw/evtloop.cpp
don't show the I-beam cursor over text in wxHtmlListBox
[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
3808e191
JS
20// For compilers that support precompilation, includes "wx.h".
21#include "wx/wxprec.h"
22
23#ifdef __BORLANDC__
24 #pragma hdrstop
25#endif
26
27#ifndef WX_PRECOMP
6c0e8b4e
VZ
28 #include "wx/window.h"
29 #include "wx/app.h"
3808e191
JS
30#endif //WX_PRECOMP
31
32#include "wx/evtloop.h"
4300caa7 33
0cd7d9b2 34#include "wx/tooltip.h"
4300caa7
VZ
35#include "wx/except.h"
36#include "wx/ptr_scpd.h"
3808e191
JS
37
38#include "wx/msw/private.h"
39
0cd7d9b2 40#if wxUSE_THREADS
4300caa7
VZ
41 #include "wx/thread.h"
42
9af08eb8
VZ
43 // define the list of MSG strutures
44 WX_DECLARE_LIST(MSG, wxMsgList);
4300caa7 45
9af08eb8 46 #include "wx/listimpl.cpp"
4300caa7 47
259c43f6 48 WX_DEFINE_LIST(wxMsgList)
4300caa7 49#endif // wxUSE_THREADS
0cd7d9b2 50
3808e191 51// ============================================================================
3754265e 52// wxEventLoop implementation
3808e191
JS
53// ============================================================================
54
b4626104 55wxWindowMSW *wxEventLoop::ms_winCritical = NULL;
3754265e 56
3808e191 57// ----------------------------------------------------------------------------
3754265e 58// ctor/dtor
3808e191
JS
59// ----------------------------------------------------------------------------
60
3754265e
VZ
61wxEventLoop::wxEventLoop()
62{
63 m_shouldExit = false;
64 m_exitcode = 0;
65}
66
67// ----------------------------------------------------------------------------
68// wxEventLoop message processing
69// ----------------------------------------------------------------------------
70
71void wxEventLoop::ProcessMessage(WXMSG *msg)
3808e191
JS
72{
73 // give us the chance to preprocess the message first
74 if ( !PreProcessMessage(msg) )
75 {
76 // if it wasn't done, dispatch it to the corresponding window
77 ::TranslateMessage(msg);
78 ::DispatchMessage(msg);
79 }
80}
81
b4626104 82bool wxEventLoop::IsChildOfCriticalWindow(wxWindowMSW *win)
a7b7500c
VZ
83{
84 while ( win )
85 {
86 if ( win == ms_winCritical )
87 return true;
88
89 win = win->GetParent();
90 }
91
92 return false;
93}
94
3754265e 95bool wxEventLoop::PreProcessMessage(WXMSG *msg)
3808e191 96{
ac8d0c11 97 HWND hwnd = msg->hwnd;
89c83180 98 wxWindow *wndThis = wxGetWindowFromHWND((WXHWND)hwnd);
a7b7500c 99 wxWindow *wnd;
ac8d0c11 100
18f5234f
DS
101 // this might happen if we're in a modeless dialog, or if a wx control has
102 // children which themselves were not created by wx (i.e. wxActiveX control children)
ac8d0c11
VZ
103 if ( !wndThis )
104 {
18f5234f 105 while ( hwnd && (::GetWindowLong(hwnd, GWL_STYLE) & WS_CHILD ))
ac8d0c11
VZ
106 {
107 hwnd = ::GetParent(hwnd);
89c83180 108
18f5234f
DS
109 // If the control has a wx parent, break and give the parent a chance
110 // to process the window message
111 wndThis = wxGetWindowFromHWND((WXHWND)hwnd);
112 if (wndThis != NULL)
113 break;
ac8d0c11
VZ
114 }
115
18f5234f
DS
116 if ( !wndThis )
117 {
118 // this may happen if the event occurred in a standard modeless dialog (the
119 // only example of which I know of is the find/replace dialog) - then call
120 // IsDialogMessage() to make TAB navigation in it work
121
122 // NOTE: IsDialogMessage() just eats all the messages (i.e. returns true for
123 // them) if we call it for the control itself
124 return hwnd && ::IsDialogMessage(hwnd, msg) != 0;
125 }
ac8d0c11 126 }
3808e191 127
a7b7500c
VZ
128 if ( !AllowProcessing(wndThis) )
129 {
130 // not a child of critical window, so we eat the event but take care to
131 // stop an endless stream of WM_PAINTs which would have resulted if we
132 // didn't validate the invalidated part of the window
133 if ( msg->message == WM_PAINT )
134 ::ValidateRect(hwnd, NULL);
135
136 return true;
137 }
138
3808e191
JS
139#if wxUSE_TOOLTIPS
140 // we must relay WM_MOUSEMOVE events to the tooltip ctrl if we want it to
141 // popup the tooltip bubbles
ac8d0c11 142 if ( msg->message == WM_MOUSEMOVE )
3808e191
JS
143 {
144 wxToolTip *tt = wndThis->GetToolTip();
145 if ( tt )
146 {
147 tt->RelayEvent((WXMSG *)msg);
148 }
149 }
150#endif // wxUSE_TOOLTIPS
151
ac8d0c11
VZ
152 // allow the window to prevent certain messages from being
153 // translated/processed (this is currently used by wxTextCtrl to always
154 // grab Ctrl-C/V/X, even if they are also accelerators in some parent)
155 if ( !wndThis->MSWShouldPreProcessMessage((WXMSG *)msg) )
156 {
3754265e 157 return false;
ac8d0c11
VZ
158 }
159
160 // try translations first: the accelerators override everything
3808e191
JS
161 for ( wnd = wndThis; wnd; wnd = wnd->GetParent() )
162 {
ac8d0c11 163 if ( wnd->MSWTranslateMessage((WXMSG *)msg))
3754265e 164 return true;
ac8d0c11
VZ
165
166 // stop at first top level window, i.e. don't try to process the key
167 // strokes originating in a dialog using the accelerators of the parent
168 // frame - this doesn't make much sense
169 if ( wnd->IsTopLevel() )
170 break;
3808e191
JS
171 }
172
22cfea03
JS
173 // now try the other hooks (kbd navigation is handled here)
174 for ( wnd = wndThis; wnd; wnd = wnd->GetParent() )
3808e191 175 {
22cfea03
JS
176 if (wnd != wndThis) // Skip the first since wndThis->MSWProcessMessage() was called above
177 {
178 if ( wnd->MSWProcessMessage((WXMSG *)msg) )
179 return true;
180 }
c8026dea 181
22cfea03
JS
182 // Stop at first top level window (as per comment above).
183 // If we don't do this, pressing ESC on a modal dialog shown as child of a modal
184 // dialog with wxID_CANCEL will cause the parent dialog to be closed, for example
185 if (wnd->IsTopLevel())
186 break;
3808e191
JS
187 }
188
ac8d0c11 189 // no special preprocessing for this message, dispatch it normally
3754265e 190 return false;
cea62f9c
JS
191}
192
3808e191
JS
193// ----------------------------------------------------------------------------
194// wxEventLoop running and exiting
195// ----------------------------------------------------------------------------
196
c8026dea
VZ
197// ----------------------------------------------------------------------------
198// wxEventLoopManual customization
199// ----------------------------------------------------------------------------
3808e191 200
c8026dea
VZ
201void wxEventLoop::OnNextIteration()
202{
203#if wxUSE_THREADS
204 wxMutexGuiLeaveOrEnter();
205#endif // wxUSE_THREADS
3808e191
JS
206}
207
c8026dea 208void wxEventLoop::WakeUp()
3808e191 209{
f7550d73 210 ::PostMessage(NULL, WM_NULL, 0, 0);
3808e191
JS
211}
212
213// ----------------------------------------------------------------------------
214// wxEventLoop message processing dispatching
215// ----------------------------------------------------------------------------
216
217bool wxEventLoop::Pending() const
218{
219 MSG msg;
220 return ::PeekMessage(&msg, 0, 0, 0, PM_NOREMOVE) != 0;
221}
222
223bool wxEventLoop::Dispatch()
224{
3754265e 225 wxCHECK_MSG( IsRunning(), false, _T("can't call Dispatch() if not running") );
3808e191
JS
226
227 MSG msg;
228 BOOL rc = ::GetMessage(&msg, (HWND) NULL, 0, 0);
229
230 if ( rc == 0 )
231 {
232 // got WM_QUIT
3754265e 233 return false;
3808e191
JS
234 }
235
236 if ( rc == -1 )
237 {
238 // should never happen, but let's test for it nevertheless
239 wxLogLastError(wxT("GetMessage"));
240
241 // still break from the loop
3754265e 242 return false;
3808e191
JS
243 }
244
245#if wxUSE_THREADS
246 wxASSERT_MSG( wxThread::IsMain(),
247 wxT("only the main thread can process Windows messages") );
248
3754265e 249 static bool s_hadGuiLock = true;
9af08eb8 250 static wxMsgList s_aSavedMessages;
3808e191
JS
251
252 // if a secondary thread owning the mutex is doing GUI calls, save all
253 // messages for later processing - we can't process them right now because
254 // it will lead to recursive library calls (and we're not reentrant)
255 if ( !wxGuiOwnedByMainThread() )
256 {
3754265e 257 s_hadGuiLock = false;
3808e191
JS
258
259 // leave out WM_COMMAND messages: too dangerous, sometimes
260 // the message will be processed twice
6c0e8b4e 261 if ( !wxIsWaitingForThread() || msg.message != WM_COMMAND )
3808e191 262 {
9af08eb8
VZ
263 MSG* pMsg = new MSG(msg);
264 s_aSavedMessages.Append(pMsg);
3808e191
JS
265 }
266
3754265e 267 return true;
3808e191
JS
268 }
269 else
270 {
271 // have we just regained the GUI lock? if so, post all of the saved
272 // messages
273 //
274 // FIXME of course, it's not _exactly_ the same as processing the
275 // messages normally - expect some things to break...
276 if ( !s_hadGuiLock )
277 {
3754265e 278 s_hadGuiLock = true;
3808e191 279
9af08eb8
VZ
280 wxMsgList::compatibility_iterator node = s_aSavedMessages.GetFirst();
281 while (node)
3808e191 282 {
9af08eb8
VZ
283 MSG* pMsg = node->GetData();
284 s_aSavedMessages.Erase(node);
285
286 ProcessMessage(pMsg);
287 delete pMsg;
3808e191 288
9af08eb8
VZ
289 node = s_aSavedMessages.GetFirst();
290 }
3808e191
JS
291 }
292 }
293#endif // wxUSE_THREADS
294
3754265e 295 ProcessMessage(&msg);
3808e191 296
3754265e 297 return true;
3808e191
JS
298}
299