// Purpose: implements wxEventLoop for MGL
// Author: Vaclav Slavik
// RCS-ID: $Id$
-// Copyright: (c) 2001 SciTech Software, Inc. (www.scitechsoft.com)
-// License: wxWindows license
+// Copyright: (c) 2001-2002 SciTech Software, Inc. (www.scitechsoft.com)
+// License: wxWindows licence
///////////////////////////////////////////////////////////////////////////////
// ----------------------------------------------------------------------------
#endif //WX_PRECOMP
#include "wx/evtloop.h"
-
+#include "wx/timer.h"
#include "wx/mgl/private.h"
// ----------------------------------------------------------------------------
void wxEventLoopImpl::Dispatch()
{
event_t evt;
- ibool rc;
- MGL_wmUpdateDC(g_winMng);
+ // VS: The code bellow is equal to MGL's EVT_halt implementation, with
+ // two things added: sleeping (busy waiting is stupid, lets make CPU's
+ // life a bit easier) and timers updating
+
+ // EVT_halt(&evt, EVT_EVERYEVT);
+ for (;;)
+ {
+#if wxUSE_TIMER
+ wxTimer::NotifyTimers();
+ MGL_wmUpdateDC(g_winMng);
+#endif
+ EVT_pollJoystick();
+ if ( EVT_getNext(&evt, EVT_EVERYEVT) ) break;
+ PM_sleep(10);
+ }
+ // end of EVT_halt
- EVT_halt(&evt, EVT_EVERYEVT);
MGL_wmProcessEvent(g_winMng, &evt);
}
m_impl->SetExitCode(rc);
m_impl->SetKeepLooping(FALSE);
+
+ // Send a dummy event so that the app won't block in EVT_halt if there
+ // are no user-generated events in the queue:
+ EVT_post(0, EVT_USEREVT, 0, 0);
}
// ----------------------------------------------------------------------------
bool wxEventLoop::Pending() const
{
+ // update the display here, so that wxYield refreshes display and
+ // changes take effect immediately, not after emptying events queue:
+ MGL_wmUpdateDC(g_winMng);
+
+ // is there an event in the queue?
event_t evt;
return EVT_peekNext(&evt, EVT_EVERYEVT);
}