// Created: 01.06.01
// RCS-ID: $Id$
// Copyright: (c) 2001 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
-// License: wxWindows license
+// License: wxWindows licence
///////////////////////////////////////////////////////////////////////////////
// ============================================================================
// headers
// ----------------------------------------------------------------------------
-#ifdef __GNUG__
+#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
#pragma implementation "evtloop.h"
#endif
#endif
#ifndef WX_PRECOMP
+ #include "wx/window.h"
+ #include "wx/app.h"
#endif //WX_PRECOMP
#include "wx/evtloop.h"
+#include "wx/tooltip.h"
+#include "wx/except.h"
+#include "wx/ptr_scpd.h"
+
#include "wx/msw/private.h"
+// For MB_TASKMODAL
+#ifdef __WXWINCE__
+#include "wx/msw/wince/missing.h"
+#endif
+
+#if wxUSE_THREADS
+ #include "wx/thread.h"
+
+ // define the array of MSG strutures
+ WX_DECLARE_OBJARRAY(MSG, wxMsgArray);
+
+ #include "wx/arrimpl.cpp"
+
+ WX_DEFINE_OBJARRAY(wxMsgArray);
+#endif // wxUSE_THREADS
+
// ----------------------------------------------------------------------------
// wxEventLoopImpl
// ----------------------------------------------------------------------------
{
public:
// ctor
- wxEventLoopImpl() { SetExitCode(0); }
+ wxEventLoopImpl() { m_exitcode = 0; m_shouldExit = false; }
// process a message
void ProcessMessage(MSG *msg);
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
// 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;
};
// ============================================================================
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 )
}
#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;
}
bool wxEventLoopImpl::SendIdleMessage()
{
- wxIdleEvent event;
+ return wxTheApp->ProcessIdle();
+}
+
+// ----------------------------------------------------------------------------
+// wxEventLoopImpl exception handling
+// ----------------------------------------------------------------------------
- return wxTheApp->ProcessEvent(event) && event.MoreRequested();
+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
// ----------------------------------------------------------------------------
// 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 = false;
+ 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;
+ default:
+ 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);
}
// ----------------------------------------------------------------------------
// leave out WM_COMMAND messages: too dangerous, sometimes
// the message will be processed twice
- if ( !wxIsWaitingForThread() ||
- s_currentMsg.message != WM_COMMAND )
+ if ( !wxIsWaitingForThread() || msg.message != WM_COMMAND )
{
- s_aSavedMessages.Add(s_currentMsg);
+ s_aSavedMessages.Add(msg);
}
return TRUE;
projects / wxWidgets.git / blobdiff