wxMGL wxWindow and wxApp mostly complete, now hunting bugs

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@11341 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775

src/mgl/evtloop.cpp

@@ -0,0 +1,176 @@
+///////////////////////////////////////////////////////////////////////////////
+// Name:        mgl/evtloop.cpp
+// Purpose:     implements wxEventLoop for MGL
+// Author:      Vaclav Slavik
+// RCS-ID:      $Id$
+// Copyright:   (c) 2001 SciTech Software, Inc. (www.scitechsoft.com)
+// License:     wxWindows license
+///////////////////////////////////////////////////////////////////////////////
+
+// ----------------------------------------------------------------------------
+// headers
+// ----------------------------------------------------------------------------
+
+#ifdef __GNUG__
+    #pragma implementation "evtloop.h"
+#endif
+
+// For compilers that support precompilation, includes "wx.h".
+#include "wx/wxprec.h"
+
+#ifdef __BORLANDC__
+    #pragma hdrstop
+#endif
+
+#ifndef WX_PRECOMP
+    #include "wx/window.h"
+    #include "wx/app.h"
+    #include "wx/thread.h"
+#endif //WX_PRECOMP
+
+#include "wx/evtloop.h"
+
+#include "wx/mgl/private.h"
+
+// ----------------------------------------------------------------------------
+// wxEventLoopImpl
+// ----------------------------------------------------------------------------
+
+class WXDLLEXPORT wxEventLoopImpl
+{
+public:
+    // ctor
+    wxEventLoopImpl()
+        {
+            SetExitCode(0);
+            SetKeepLooping(TRUE);
+        }
+
+    // process a message
+    void ProcessEvent(event_t *evt);
+
+    // generate an idle message, return TRUE if more idle time requested
+    bool SendIdleMessage();
+
+    // set/get the exit code
+    void SetExitCode(int exitcode) { m_exitcode = exitcode; }
+    int GetExitCode() const { return m_exitcode; }
+    
+    void SetKeepLooping(bool k) { m_keepLooping = k; }
+    bool GetKeepLooping() const { return m_keepLooping; }
+
+private:
+
+    // the exit code of the event loop
+    int m_exitcode;
+    // FALSE if the loop should end
+    bool m_keepLooping;
+};
+
+// ============================================================================
+// wxEventLoopImpl implementation
+// ============================================================================
+
+void wxEventLoopImpl::ProcessEvent(event_t *evt)
+{
+    MGL_wmProcessEvent(g_winMng, evt);
+}
+
+bool wxEventLoopImpl::SendIdleMessage()
+{
+    wxIdleEvent event;
+
+    return wxTheApp->ProcessEvent(event) && event.MoreRequested();
+}
+
+// ============================================================================
+// wxEventLoop implementation
+// ============================================================================
+
+// ----------------------------------------------------------------------------
+// wxEventLoop running and exiting
+// ----------------------------------------------------------------------------
+
+wxEventLoop::~wxEventLoop()
+{
+    wxASSERT_MSG( !m_impl, _T("should have been deleted in Run()") );
+}
+
+bool wxEventLoop::IsRunning() const
+{
+    return m_impl != NULL;
+}
+
+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 ( ;; )
+    {
+#if wxUSE_THREADS
+        //wxMutexGuiLeaveOrEnter(); // FIXME_MGL - huh?
+#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() ) {}
+
+        // a message came or no more idle processing to do, sit in Dispatch()
+        // waiting for the next message
+        if ( !Dispatch() )
+        {
+            // app terminated
+            break;
+        }
+    }
+
+    int exitcode = m_impl->GetExitCode();
+    delete m_impl;
+    m_impl = NULL;
+
+    return exitcode;
+}
+
+void wxEventLoop::Exit(int rc)
+{
+    wxCHECK_RET( IsRunning(), _T("can't call Exit() if not running") );
+
+    m_impl->SetExitCode(rc);
+    m_impl->SetKeepLooping(FALSE);
+}
+
+// ----------------------------------------------------------------------------
+// wxEventLoop message processing dispatching
+// ----------------------------------------------------------------------------
+
+bool wxEventLoop::Pending() const
+{
+    event_t evt;
+    return EVT_peekNext(&evt, EVT_EVERYEVT);
+}
+
+bool wxEventLoop::Dispatch()
+{
+    wxCHECK_MSG( IsRunning(), FALSE, _T("can't call Dispatch() if not running") );
+
+    event_t evt;
+    ibool rc = EVT_getNext(&evt, EVT_EVERYEVT);
+
+    if ( !rc )
+    {
+        wxLogError(_T("events queue empty even though Pending() returned true"));
+        return FALSE;
+    }
+    
+    // FIXME_MGL -- there must be some way to programatically exit
+    // the loop, like WM_QUIT under Windows -- perhaps we need custom
+    // event to indicate this??
+
+    m_impl->ProcessEvent(&evt);
+
+    return m_impl->GetKeepLooping();
+}
+