toplevel code transferred to wxTopLevelWindow

[wxWidgets.git] / src / mgl / timer.cpp

diff --git a/src/mgl/timer.cpp b/src/mgl/timer.cpp
index f56c8459c8dbd11677f75c8417e2bd8b70342d67..5452e675d0e34b9c3b57aa8fad46baaed70104b9 100644 (file)
--- a/src/mgl/timer.cpp
+++ b/src/mgl/timer.cpp
@@ -12,10 +12,19 @@
 #pragma implementation "timer.h"
 #endif
 
+// For compilers that support precompilation, includes "wx.h".
+#include "wx/wxprec.h"
+
+#ifdef __BORLANDC__
+    #pragma hdrstop
+#endif
+
 #include "wx/timer.h"
 
 #if wxUSE_TIMER
 
+#include "wx/log.h"
+#include "wx/module.h"
 #include "wx/mgl/private.h"
 
 extern "C" ulong _EVT_getTicks();
@@ -27,12 +36,15 @@ extern "C" ulong _EVT_getTicks();
 class wxTimerDesc
 {
 public:
-    wxTimerDesc(wxTimer *t) : timer(t), running(FALSE), next(NULL), prev(NULL) {}
+    wxTimerDesc(wxTimer *t) : 
+        timer(t), running(FALSE), next(NULL), prev(NULL), 
+        shotTime(0), deleteFlag(NULL) {}
 
     wxTimer         *timer;
     bool             running;
     wxTimerDesc     *next, *prev;
-    unsigned long    shotTime;
+    unsigned long    shotTime;  
+    volatile bool   *deleteFlag; // see comment in ~wxTimer
 };
 
 class wxTimerScheduler
@@ -50,11 +62,17 @@ private:
 
 void wxTimerScheduler::QueueTimer(wxTimerDesc *desc, unsigned long when)
 {
+    if ( desc->running )
+        return; // already scheduled
+        
     if ( when == 0 )
         when = _EVT_getTicks() + desc->timer->GetInterval();
     desc->shotTime = when;
     desc->running = TRUE;
 
+    wxLogTrace("mgl_timer", "queued timer %p at tick %i", 
+               desc->timer, when);
+
     if ( m_timers )
     {
         wxTimerDesc *d = m_timers;
@@ -88,17 +106,29 @@ void wxTimerScheduler::NotifyTimers()
 {
     if ( m_timers )
     {
+        bool oneShot;
+        volatile bool timerDeleted;
         unsigned long now = _EVT_getTicks();
         wxTimerDesc *desc;
-        
+
         while ( m_timers && m_timers->shotTime <= now )
         {
             desc = m_timers;
-            desc->timer->Notify();
+            oneShot = desc->timer->IsOneShot();
             RemoveTimer(desc);
-            if ( !desc->timer->IsOneShot() )
+
+            timerDeleted = FALSE;
+            desc->deleteFlag = &timerDeleted;
+            desc->timer->Notify();
+            
+            if ( !timerDeleted )
             {
-                QueueTimer(desc, now + desc->timer->GetInterval());
+                wxLogTrace("mgl_timer", "notified timer %p sheduled for %i", 
+                           desc->timer, desc->shotTime);
+
+                desc->deleteFlag = NULL;
+                if ( !oneShot )
+                    QueueTimer(desc, now + desc->timer->GetInterval());
             }
         }
     }
@@ -112,27 +142,30 @@ void wxTimerScheduler::NotifyTimers()
 
 IMPLEMENT_ABSTRACT_CLASS(wxTimer,wxObject)
 
-wxTimerScheduler *wxTimer::ms_scheduler = NULL;
-size_t wxTimer::ms_timersCnt = 0;
+wxTimerScheduler *gs_scheduler = NULL;
 
 void wxTimer::Init()
 {
-    if ( ms_timersCnt++ == 0 )
-        ms_scheduler = new wxTimerScheduler;
+    if ( !gs_scheduler )
+        gs_scheduler = new wxTimerScheduler;
     m_desc = new wxTimerDesc(this);
 }
 
 wxTimer::~wxTimer()
 {
+    wxLogTrace("mgl_timer", "destroying timer %p...", this);
     if ( IsRunning() )
         Stop();
 
-    if ( --ms_timersCnt == 0 )
-    {
-        delete ms_scheduler;
-        ms_scheduler = NULL;
-    }
+    // NB: this is a hack: wxTimerScheduler must have some way of knowing
+    //     that wxTimer object was deleted under its hands -- this may 
+    //     happen if somebody is really nasty and deletes the timer
+    //     from wxTimer::Notify()
+    if ( m_desc->deleteFlag != NULL )
+        *m_desc->deleteFlag = TRUE;
+
     delete m_desc;
+    wxLogTrace("mgl_timer", "    ...done destroying timer %p...", this);
 }
 
 bool wxTimer::IsRunning() const
@@ -142,10 +175,13 @@ bool wxTimer::IsRunning() const
 
 bool wxTimer::Start(int millisecs, bool oneShot)
 {
+    wxLogTrace("mgl_timer", "started timer %p: %i ms, oneshot=%i", 
+               this, millisecs, oneShot);
+
     if ( !wxTimerBase::Start(millisecs, oneShot) )
         return FALSE;
     
-    ms_scheduler->QueueTimer(m_desc);
+    gs_scheduler->QueueTimer(m_desc);
     return TRUE;
 }
 
@@ -153,12 +189,28 @@ void wxTimer::Stop()
 {
     if ( !m_desc->running ) return;
     
-    ms_scheduler->RemoveTimer(m_desc);
+    gs_scheduler->RemoveTimer(m_desc);
 }
 
 /*static*/ void wxTimer::NotifyTimers()
 {
-    ms_scheduler->NotifyTimers();
+    if ( gs_scheduler )
+        gs_scheduler->NotifyTimers();
 }
 
+
+
+// A module to deallocate memory properly:
+class wxTimerModule: public wxModule
+{
+DECLARE_DYNAMIC_CLASS(wxTimerModule)
+public:
+    wxTimerModule() {}
+    bool OnInit() { return TRUE; }
+    void OnExit() { delete gs_scheduler; gs_scheduler = NULL; }
+};
+
+IMPLEMENT_DYNAMIC_CLASS(wxTimerModule, wxModule)
+
+
 #endif //wxUSE_TIMER