// headers
// ----------------------------------------------------------------------------
-#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
- #pragma implementation "evtloop.h"
-#endif
-
// For compilers that support precompilation, includes "wx.h".
#include "wx/wxprec.h"
#endif
#ifndef WX_PRECOMP
- #include "wx/window.h"
+ #if wxUSE_GUI
+ #include "wx/window.h"
+ #endif
#include "wx/app.h"
#endif //WX_PRECOMP
#include "wx/evtloop.h"
-
-#include "wx/tooltip.h"
+#include "wx/thread.h"
#include "wx/except.h"
-#include "wx/ptr_scpd.h"
-
#include "wx/msw/private.h"
-#if wxUSE_THREADS
- #include "wx/thread.h"
+#if wxUSE_GUI
+ #include "wx/tooltip.h"
+ #if wxUSE_THREADS
+ // define the list of MSG strutures
+ WX_DECLARE_LIST(MSG, wxMsgList);
- // define the list of MSG strutures
- WX_DECLARE_LIST(MSG, wxMsgList);
+ #include "wx/listimpl.cpp"
- #include "wx/listimpl.cpp"
+ WX_DEFINE_LIST(wxMsgList)
+ #endif // wxUSE_THREADS
+#endif //wxUSE_GUI
- WX_DEFINE_LIST(wxMsgList);
-#endif // wxUSE_THREADS
+#if wxUSE_BASE
+
+// ============================================================================
+// wxMSWEventLoopBase implementation
+// ============================================================================
+
+// ----------------------------------------------------------------------------
+// ctor/dtor
+// ----------------------------------------------------------------------------
+
+wxMSWEventLoopBase::wxMSWEventLoopBase()
+{
+ m_shouldExit = false;
+ m_exitcode = 0;
+}
// ----------------------------------------------------------------------------
-// helper class
+// wxEventLoop message processing dispatching
// ----------------------------------------------------------------------------
-// this object sets the wxEventLoop given to the ctor as the currently active
-// one and unsets it in its dtor
-class wxEventLoopActivator
+bool wxMSWEventLoopBase::Pending() const
{
-public:
- wxEventLoopActivator(wxEventLoop **pActive,
- wxEventLoop *evtLoop)
+ MSG msg;
+ return ::PeekMessage(&msg, 0, 0, 0, PM_NOREMOVE) != 0;
+}
+
+bool wxMSWEventLoopBase::GetNextMessage(WXMSG* msg)
+{
+ wxCHECK_MSG( IsRunning(), false, _T("can't get messages if not running") );
+
+ const BOOL rc = ::GetMessage(msg, NULL, 0, 0);
+
+ if ( rc == 0 )
{
- m_pActive = pActive;
- m_evtLoopOld = *pActive;
- *pActive = evtLoop;
+ // got WM_QUIT
+ return false;
}
- ~wxEventLoopActivator()
+ if ( rc == -1 )
{
- // restore the previously active event loop
- *m_pActive = m_evtLoopOld;
+ // should never happen, but let's test for it nevertheless
+ wxLogLastError(wxT("GetMessage"));
+
+ // still break from the loop
+ return false;
}
-private:
- wxEventLoop *m_evtLoopOld;
- wxEventLoop **m_pActive;
-};
+ return true;
+}
-// ============================================================================
-// wxEventLoop implementation
-// ============================================================================
+int wxMSWEventLoopBase::GetNextMessageTimeout(WXMSG *msg, unsigned long timeout)
+{
+ // MsgWaitForMultipleObjects() won't notice any input which was already
+ // examined (e.g. using PeekMessage()) but not yet removed from the queue
+ // so we need to remove any immediately messages manually
+ //
+ // NB: using MsgWaitForMultipleObjectsEx() could simplify the code here but
+ // it is not available in very old Windows versions
+ if ( !::PeekMessage(msg, 0, 0, 0, PM_REMOVE) )
+ {
+ // we use this function just in order to not block longer than the
+ // given timeout, so we don't pass any handles to it at all
+ DWORD rc = ::MsgWaitForMultipleObjects
+ (
+ 0, NULL,
+ FALSE,
+ timeout,
+ QS_ALLINPUT
+ );
+
+ switch ( rc )
+ {
+ default:
+ wxLogDebug("unexpected MsgWaitForMultipleObjects() return "
+ "value %lu", rc);
+ // fall through
-wxEventLoop *wxEventLoopBase::ms_activeLoop = NULL;
+ case WAIT_TIMEOUT:
+ return -1;
-// ----------------------------------------------------------------------------
-// ctor/dtor
-// ----------------------------------------------------------------------------
+ case WAIT_OBJECT_0:
+ if ( !::PeekMessage(msg, 0, 0, 0, PM_REMOVE) )
+ {
+ // somehow it may happen that MsgWaitForMultipleObjects()
+ // returns true but there are no messages -- just treat it
+ // the same as timeout then
+ return -1;
+ }
+ break;
+ }
+ }
-wxEventLoop::wxEventLoop()
-{
- m_shouldExit = false;
- m_exitcode = 0;
+ return msg->message != WM_QUIT;
}
-// ----------------------------------------------------------------------------
-// wxEventLoop message processing
-// ----------------------------------------------------------------------------
-void wxEventLoop::ProcessMessage(WXMSG *msg)
+#endif // wxUSE_BASE
+
+#if wxUSE_GUI
+
+// ============================================================================
+// GUI wxEventLoop implementation
+// ============================================================================
+
+wxWindowMSW *wxGUIEventLoop::ms_winCritical = NULL;
+
+bool wxGUIEventLoop::IsChildOfCriticalWindow(wxWindowMSW *win)
{
- // give us the chance to preprocess the message first
- if ( !PreProcessMessage(msg) )
+ while ( win )
{
- // if it wasn't done, dispatch it to the corresponding window
- ::TranslateMessage(msg);
- ::DispatchMessage(msg);
+ if ( win == ms_winCritical )
+ return true;
+
+ win = win->GetParent();
}
+
+ return false;
}
-bool wxEventLoop::PreProcessMessage(WXMSG *msg)
+bool wxGUIEventLoop::PreProcessMessage(WXMSG *msg)
{
HWND hwnd = msg->hwnd;
wxWindow *wndThis = wxGetWindowFromHWND((WXHWND)hwnd);
+ wxWindow *wnd;
- // this may happen if the event occurred 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
+ // this might happen if we're in a modeless dialog, or if a wx control has
+ // children which themselves were not created by wx (i.e. wxActiveX control children)
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 )
+ while ( hwnd && (::GetWindowLong(hwnd, GWL_STYLE) & WS_CHILD ))
{
hwnd = ::GetParent(hwnd);
+
+ // If the control has a wx parent, break and give the parent a chance
+ // to process the window message
+ wndThis = wxGetWindowFromHWND((WXHWND)hwnd);
+ if (wndThis != NULL)
+ break;
}
- return hwnd && ::IsDialogMessage(hwnd, msg) != 0;
+ if ( !wndThis )
+ {
+ // this may happen if the event occurred 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
+
+ // NOTE: IsDialogMessage() just eats all the messages (i.e. returns true for
+ // them) if we call it for the control itself
+ return hwnd && ::IsDialogMessage(hwnd, msg) != 0;
+ }
+ }
+
+ if ( !AllowProcessing(wndThis) )
+ {
+ // not a child of critical window, so we eat the event but take care to
+ // stop an endless stream of WM_PAINTs which would have resulted if we
+ // didn't validate the invalidated part of the window
+ if ( msg->message == WM_PAINT )
+ ::ValidateRect(hwnd, NULL);
+
+ return true;
}
#if wxUSE_TOOLTIPS
// popup the tooltip bubbles
if ( msg->message == WM_MOUSEMOVE )
{
- wxToolTip *tt = wndThis->GetToolTip();
- if ( tt )
- {
- tt->RelayEvent((WXMSG *)msg);
- }
+ // we should do it if one of window children has an associated tooltip
+ // (and not just if the window has a tooltip itself)
+ if ( wndThis->HasToolTips() )
+ wxToolTip::RelayEvent((WXMSG *)msg);
}
#endif // wxUSE_TOOLTIPS
}
// try translations first: the accelerators override everything
- wxWindow *wnd;
-
for ( wnd = wndThis; wnd; wnd = wnd->GetParent() )
{
if ( wnd->MSWTranslateMessage((WXMSG *)msg))
// now try the other hooks (kbd navigation is handled here)
for ( wnd = wndThis; wnd; wnd = wnd->GetParent() )
{
- if (wnd != wndThis) // Skip the first since wndThis->MSWProcessMessage() was called above
- {
- if ( wnd->MSWProcessMessage((WXMSG *)msg) )
- return true;
- }
-
- // Stop at first top level window (as per comment above).
- // If we don't do this, pressing ESC on a modal dialog shown as child of a modal
- // dialog with wxID_CANCEL will cause the parent dialog to be closed, for example
- if (wnd->IsTopLevel())
+ if ( wnd->MSWProcessMessage((WXMSG *)msg) )
+ return true;
+
+ // also stop at first top level window here, just as above because
+ // if we don't do this, pressing ESC on a modal dialog shown as child
+ // of a modal dialog with wxID_CANCEL will cause the parent dialog to
+ // be closed, for example
+ if ( wnd->IsTopLevel() )
break;
}
return false;
}
-// ----------------------------------------------------------------------------
-// wxEventLoop running and exiting
-// ----------------------------------------------------------------------------
-
-bool wxEventLoop::IsRunning() const
-{
- return ms_activeLoop == this;
-}
-
-int wxEventLoop::Run()
+void wxGUIEventLoop::ProcessMessage(WXMSG *msg)
{
- // event loops are not recursive, you need to create another loop!
- wxCHECK_MSG( !IsRunning(), -1, _T("can't reenter a message loop") );
-
- // ProcessIdle() 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);
-
- // 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
- for ( ;; )
+ // give us the chance to preprocess the message first
+ if ( !PreProcessMessage(msg) )
{
- try
- {
-#endif // wxUSE_EXCEPTIONS
-
- // this is the event loop itself
- 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() && (wxTheApp && wxTheApp->ProcessIdle()) )
- ;
-
- // 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_shouldExit )
- {
- while ( Pending() )
- Dispatch();
-
- 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;
- }
- }
-
-#if wxUSE_EXCEPTIONS
- // exit the outer loop as well
- break;
- }
- catch ( ... )
- {
- try
- {
- if ( !wxTheApp || !wxTheApp->OnExceptionInMainLoop() )
- {
- OnExit();
- break;
- }
- //else: continue running the event loop
- }
- catch ( ... )
- {
- // OnException() throwed, possibly rethrowing the same
- // exception again: very good, but we still need OnExit() to
- // be called
- OnExit();
- throw;
- }
- }
+ // if it wasn't done, dispatch it to the corresponding window
+ ::TranslateMessage(msg);
+ ::DispatchMessage(msg);
}
-#endif // wxUSE_EXCEPTIONS
-
- return m_exitcode;
-}
-
-void wxEventLoop::Exit(int rc)
-{
- wxCHECK_RET( IsRunning(), _T("can't call Exit() if not running") );
-
- m_exitcode = rc;
- m_shouldExit = true;
-
- OnExit();
-
- // 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);
}
-// ----------------------------------------------------------------------------
-// wxEventLoop message processing dispatching
-// ----------------------------------------------------------------------------
-
-bool wxEventLoop::Pending() const
+bool wxGUIEventLoop::Dispatch()
{
MSG msg;
- return ::PeekMessage(&msg, 0, 0, 0, PM_NOREMOVE) != 0;
-}
-
-bool wxEventLoop::Dispatch()
-{
- wxCHECK_MSG( IsRunning(), false, _T("can't call Dispatch() if not running") );
-
- MSG msg;
- BOOL rc = ::GetMessage(&msg, (HWND) NULL, 0, 0);
-
- if ( rc == 0 )
- {
- // got WM_QUIT
+ if ( !GetNextMessage(&msg) )
return false;
- }
-
- if ( rc == -1 )
- {
- // should never happen, but let's test for it nevertheless
- wxLogLastError(wxT("GetMessage"));
-
- // still break from the loop
- return false;
- }
#if wxUSE_THREADS
wxASSERT_MSG( wxThread::IsMain(),
return true;
}
+int wxGUIEventLoop::DispatchTimeout(unsigned long timeout)
+{
+ MSG msg;
+ int rc = GetNextMessageTimeout(&msg, timeout);
+ if ( rc != 1 )
+ return rc;
+
+ ProcessMessage(&msg);
+
+ return 1;
+}
+
+void wxGUIEventLoop::OnNextIteration()
+{
+#if wxUSE_THREADS
+ wxMutexGuiLeaveOrEnter();
+#endif // wxUSE_THREADS
+}
+
+void wxGUIEventLoop::WakeUp()
+{
+ ::PostMessage(NULL, WM_NULL, 0, 0);
+}
+
+#else // !wxUSE_GUI
+
+
+// ============================================================================
+// wxConsoleEventLoop implementation
+// ============================================================================
+
+#if wxUSE_CONSOLE_EVENTLOOP
+
+void wxConsoleEventLoop::WakeUp()
+{
+#if wxUSE_THREADS
+ wxWakeUpMainThread();
+#endif
+}
+
+void wxConsoleEventLoop::ProcessMessage(WXMSG *msg)
+{
+ if ( msg->message == WM_TIMER )
+ {
+ TIMERPROC proc = (TIMERPROC)msg->lParam;
+ if ( proc )
+ (*proc)(NULL, 0, msg->wParam, 0);
+ }
+ else
+ {
+ ::DispatchMessage(msg);
+ }
+}
+
+bool wxConsoleEventLoop::Dispatch()
+{
+ MSG msg;
+ if ( !GetNextMessage(&msg) )
+ return false;
+
+ ProcessMessage(&msg);
+
+ return !m_shouldExit;
+}
+
+int wxConsoleEventLoop::DispatchTimeout(unsigned long timeout)
+{
+ MSG msg;
+ int rc = GetNextMessageTimeout(&msg, timeout);
+ if ( rc != 1 )
+ return rc;
+
+ ProcessMessage(&msg);
+
+ return !m_shouldExit;
+}
+
+#endif // wxUSE_CONSOLE_EVENTLOOP
+
+#endif //wxUSE_GUI
projects / wxWidgets.git / blobdiff