X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/0cd7d9b2355834dfabd0faeab0c5e812ebc3905a..4739346e195beb4676c281003fcf75878185023e:/src/msw/evtloop.cpp diff --git a/src/msw/evtloop.cpp b/src/msw/evtloop.cpp index ed84e41c76..1012498409 100644 --- a/src/msw/evtloop.cpp +++ b/src/msw/evtloop.cpp @@ -6,7 +6,7 @@ // Created: 01.06.01 // RCS-ID: $Id$ // Copyright: (c) 2001 Vadim Zeitlin -// License: wxWindows license +// License: wxWindows licence /////////////////////////////////////////////////////////////////////////////// // ============================================================================ @@ -17,7 +17,7 @@ // headers // ---------------------------------------------------------------------------- -#ifdef __GNUG__ +#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA) #pragma implementation "evtloop.h" #endif @@ -29,22 +29,28 @@ #endif #ifndef WX_PRECOMP + #include "wx/window.h" + #include "wx/app.h" #endif //WX_PRECOMP #include "wx/evtloop.h" -#include "wx/window.h" -#include "wx/app.h" + #include "wx/tooltip.h" +#include "wx/except.h" +#include "wx/ptr_scpd.h" #include "wx/msw/private.h" #if wxUSE_THREADS + #include "wx/thread.h" + // define the array of MSG strutures WX_DECLARE_OBJARRAY(MSG, wxMsgArray); - // VS: this is a bit dirty - it duplicates same declaration in app.cpp - // (and there's no WX_DEFINE_OBJARRAY for that reason - it is already - // defined in app.cpp). -#endif + + #include "wx/arrimpl.cpp" + + WX_DEFINE_OBJARRAY(wxMsgArray); +#endif // wxUSE_THREADS // ---------------------------------------------------------------------------- // wxEventLoopImpl @@ -54,7 +60,7 @@ class WXDLLEXPORT wxEventLoopImpl { public: // ctor - wxEventLoopImpl() { SetExitCode(0); } + wxEventLoopImpl() { m_exitcode = 0; m_shouldExit = false; } // process a message void ProcessMessage(MSG *msg); @@ -63,8 +69,16 @@ public: bool SendIdleMessage(); // set/get the exit code - void SetExitCode(int exitcode) { m_exitcode = exitcode; } + void Exit(int exitcode) { m_exitcode = exitcode; m_shouldExit = true; } int GetExitCode() const { return m_exitcode; } + bool ShouldExit() const { return m_shouldExit; } + + enum wxCatchAllResponse { + catch_continue, + catch_exit, + catch_rethrow + }; + wxCatchAllResponse OnCatchAll(); private: // preprocess a message, return TRUE if processed (i.e. no further @@ -73,6 +87,39 @@ private: // the exit code of the event loop int m_exitcode; + + // true if we were asked to terminate + bool m_shouldExit; +}; + +// ---------------------------------------------------------------------------- +// helper class +// ---------------------------------------------------------------------------- + +wxDEFINE_TIED_SCOPED_PTR_TYPE(wxEventLoopImpl); + +// this object sets the wxEventLoop given to the ctor as the currently active +// one and unsets it in its dtor +class wxEventLoopActivator +{ +public: + wxEventLoopActivator(wxEventLoop **pActive, + wxEventLoop *evtLoop) + { + m_pActive = pActive; + m_evtLoopOld = *pActive; + *pActive = evtLoop; + } + + ~wxEventLoopActivator() + { + // restore the previously active event loop + *m_pActive = m_evtLoopOld; + } + +private: + wxEventLoop *m_evtLoopOld; + wxEventLoop **m_pActive; }; // ============================================================================ @@ -96,13 +143,29 @@ void wxEventLoopImpl::ProcessMessage(MSG *msg) bool wxEventLoopImpl::PreProcessMessage(MSG *msg) { - HWND hWnd = msg->hwnd; - wxWindow *wndThis = wxGetWindowFromHWND((WXHWND)hWnd); + HWND hwnd = msg->hwnd; + wxWindow *wndThis = wxGetWindowFromHWND((WXHWND)hwnd); + + // this may happen if the event occured in a standard modeless dialog (the + // only example of which I know of is the find/replace dialog) - then call + // IsDialogMessage() to make TAB navigation in it work + if ( !wndThis ) + { + // we need to find the dialog containing this control as + // IsDialogMessage() just eats all the messages (i.e. returns TRUE for + // them) if we call it for the control itself + while ( hwnd && ::GetWindowLong(hwnd, GWL_STYLE) & WS_CHILD ) + { + hwnd = ::GetParent(hwnd); + } + + return hwnd && ::IsDialogMessage(hwnd, msg) != 0; + } #if wxUSE_TOOLTIPS // we must relay WM_MOUSEMOVE events to the tooltip ctrl if we want it to // popup the tooltip bubbles - if ( wndThis && (msg->message == WM_MOUSEMOVE) ) + if ( msg->message == WM_MOUSEMOVE ) { wxToolTip *tt = wndThis->GetToolTip(); if ( tt ) @@ -112,22 +175,39 @@ bool wxEventLoopImpl::PreProcessMessage(MSG *msg) } #endif // wxUSE_TOOLTIPS - // try translations first; find the youngest window with a translation - // table. + // allow the window to prevent certain messages from being + // translated/processed (this is currently used by wxTextCtrl to always + // grab Ctrl-C/V/X, even if they are also accelerators in some parent) + if ( !wndThis->MSWShouldPreProcessMessage((WXMSG *)msg) ) + { + return FALSE; + } + + // try translations first: the accelerators override everything wxWindow *wnd; + for ( wnd = wndThis; wnd; wnd = wnd->GetParent() ) { - if ( wnd->MSWTranslateMessage((WXMSG *)msg) ) + if ( wnd->MSWTranslateMessage((WXMSG *)msg)) return TRUE; + + // stop at first top level window, i.e. don't try to process the key + // strokes originating in a dialog using the accelerators of the parent + // frame - this doesn't make much sense + if ( wnd->IsTopLevel() ) + break; } - // Anyone for a non-translation message? Try youngest descendants first. - for ( wnd = wndThis; wnd; wnd = wnd->GetParent() ) + // now try the other hooks (kbd navigation is handled here): we start from + // wndThis->GetParent() because wndThis->MSWProcessMessage() was already + // called above + for ( wnd = wndThis->GetParent(); wnd; wnd = wnd->GetParent() ) { if ( wnd->MSWProcessMessage((WXMSG *)msg) ) return TRUE; } + // no special preprocessing for this message, dispatch it normally return FALSE; } @@ -137,15 +217,34 @@ bool wxEventLoopImpl::PreProcessMessage(MSG *msg) bool wxEventLoopImpl::SendIdleMessage() { - wxIdleEvent event; + return wxTheApp->ProcessIdle(); +} - return wxTheApp->ProcessEvent(event) && event.MoreRequested(); +// ---------------------------------------------------------------------------- +// wxEventLoopImpl exception handling +// ---------------------------------------------------------------------------- + +wxEventLoopImpl::wxCatchAllResponse wxEventLoopImpl::OnCatchAll() +{ + switch (::MessageBox(NULL, + _T("An unhandled exception occurred. 'Abort' will terminate the program,\r\n" + "'Retry' will close the current dialog, 'Ignore' will try to continue."), + _T("Unhandled exception"), + MB_ABORTRETRYIGNORE|MB_ICONERROR|MB_TASKMODAL)) + { + case IDABORT: return catch_rethrow; + case IDRETRY: return catch_exit; + case IDIGNORE: return catch_continue; + } + return catch_rethrow; } // ============================================================================ // wxEventLoop implementation // ============================================================================ +wxEventLoop *wxEventLoop::ms_activeLoop = NULL; + // ---------------------------------------------------------------------------- // wxEventLoop running and exiting // ---------------------------------------------------------------------------- @@ -165,42 +264,96 @@ int wxEventLoop::Run() // event loops are not recursive, you need to create another loop! wxCHECK_MSG( !IsRunning(), -1, _T("can't reenter a message loop") ); - m_impl = new wxEventLoopImpl; - - for ( ;; ) + // SendIdleMessage() and Dispatch() below may throw so the code here should + // be exception-safe, hence we must use local objects for all actions we + // should undo + wxEventLoopActivator activate(&ms_activeLoop, this); + wxEventLoopImplTiedPtr impl(&m_impl, new wxEventLoopImpl); + + // we must ensure that OnExit() is called even if an exception is thrown + // from inside Dispatch() but we must call it from Exit() in normal + // situations because it is supposed to be called synchronously, + // wxModalEventLoop depends on this (so we can't just use ON_BLOCK_EXIT or + // something similar here) +#if wxUSE_EXCEPTIONS + bool retryAfterException; + do { + retryAfterException=false; +#endif + wxTRY { -#if wxUSE_THREADS - wxMutexGuiLeaveOrEnter(); -#endif // wxUSE_THREADS + for ( ;; ) + { + #if wxUSE_THREADS + wxMutexGuiLeaveOrEnter(); + #endif // wxUSE_THREADS + + // generate and process idle events for as long as we don't have + // anything else to do + while ( !Pending() && m_impl->SendIdleMessage() ) + ; + + // if the "should exit" flag is set, the loop should terminate but + // not before processing any remaining messages so while Pending() + // returns true, do process them + if ( m_impl->ShouldExit() ) + { + while ( Pending() ) + Dispatch(); - // generate and process idle events for as long as we don't have - // anything else to do - while ( !Pending() && m_impl->SendIdleMessage() ) - ; + break; + } - // a message came or no more idle processing to do, sit in Dispatch() - // waiting for the next message - if ( !Dispatch() ) - { - // we got WM_QUIT - break; + // a message came or no more idle processing to do, sit in + // Dispatch() waiting for the next message + if ( !Dispatch() ) + { + // we got WM_QUIT + break; + } + } } + wxCATCH_ALL( + switch (m_impl->OnCatchAll()) { + case wxEventLoopImpl::catch_continue: + retryAfterException=true; + break; + case wxEventLoopImpl::catch_exit: + OnExit(); + break; + case wxEventLoopImpl::catch_rethrow: + OnExit(); + // should be replaced with wx macro, but + // there is none yet. OTOH, wxCATCH_ALL isn't + // expanded unless wxUSE_EXCEPTIONS, so its + // safe to use throw here. + throw; + break; } + ) +#if wxUSE_EXCEPTIONS + } while (retryAfterException); +#endif - int exitcode = m_impl->GetExitCode(); - delete m_impl; - m_impl = NULL; - - return exitcode; + return m_impl->GetExitCode(); } void wxEventLoop::Exit(int rc) { wxCHECK_RET( IsRunning(), _T("can't call Exit() if not running") ); - m_impl->SetExitCode(rc); + m_impl->Exit(rc); + + OnExit(); - ::PostQuitMessage(rc); + // all we have to do to exit from the loop is to (maybe) wake it up so that + // it can notice that Exit() had been called + // + // in particular, we do *not* use PostQuitMessage() here because we're not + // sure that WM_QUIT is going to be processed by the correct event loop: it + // is possible that another one is started before this one has a chance to + // process WM_QUIT + ::PostMessage(NULL, WM_NULL, 0, 0); } // ---------------------------------------------------------------------------- @@ -251,8 +404,7 @@ bool wxEventLoop::Dispatch() // leave out WM_COMMAND messages: too dangerous, sometimes // the message will be processed twice - if ( !wxIsWaitingForThread() || - msg.message != WM_COMMAND ) + if ( !wxIsWaitingForThread() || msg.message != WM_COMMAND ) { s_aSavedMessages.Add(msg); }