src/mac/carbon/timer.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        timer.cpp
   3 // Purpose:     wxTimer implementation
   4 // Author:      AUTHOR
   5 // Modified by:
   6 // Created:     ??/??/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) AUTHOR
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13 #pragma implementation "timer.h"
  14 #endif
  15
  16 #include "wx/timer.h"
  17
  18 #if !USE_SHARED_LIBRARY
  19 IMPLEMENT_ABSTRACT_CLASS(wxTimer, wxObject)
  20 #endif
  21
  22 #ifdef __WXMAC__
  23 #include "wx/mac/private.h"
  24 #endif
  25 #ifndef __DARWIN__
  26 #include <Timer.h>
  27 #endif
  28
  29 #include "wx/dynarray.h"
  30
  31 typedef struct MacTimerInfo
  32 {
  33     TMTask m_task;
  34     wxMacNotifierTableRef m_table ;
  35     wxTimer* m_timer ;
  36 } ;
  37
  38 static void wxProcessTimer( unsigned long event , void *data ) ;
  39
  40 static pascal void MacTimerProc( TMTask * t )
  41 {
  42         MacTimerInfo * tm = (MacTimerInfo*)  t ;
  43         wxMacAddEvent( tm->m_table , wxProcessTimer, 0 , (void*) tm->m_timer , TRUE ) ;
  44 }
  45
  46 wxArrayPtrVoid gTimersInProcess ;
  47
  48 static void wxProcessTimer( unsigned long event , void *data )
  49 {
  50         if ( !data )
  51                 return ;
  52
  53         wxTimer* timer = (wxTimer*) data ;
  54
  55         if ( timer->IsOneShot() )
  56                 timer->Stop() ;
  57
  58         gTimersInProcess.Add( timer ) ;
  59
  60     timer->Notify();
  61
  62     int index = gTimersInProcess.Index( timer ) ;
  63
  64     if ( index != wxNOT_FOUND )
  65     {
  66         gTimersInProcess.RemoveAt( index ) ;
  67
  68         if ( !timer->IsOneShot() && timer->m_info->m_task.tmAddr )
  69         {
  70             PrimeTime( (QElemPtr)  &timer->m_info->m_task , timer->GetInterval() ) ;
  71         }
  72
  73     }
  74 }
  75
  76 void wxTimer::Init()
  77 {
  78     m_info = new MacTimerInfo() ;
  79         m_info->m_task.tmAddr = NULL ;
  80         m_info->m_task.tmWakeUp = 0 ;
  81         m_info->m_task.tmReserved = 0 ;
  82         m_info->m_task.qType = 0 ;
  83         m_info->m_table = wxMacGetNotifierTable() ;
  84         m_info->m_timer = this ;
  85 }
  86
  87 bool wxTimer::IsRunning() const
  88 {
  89         return ( m_info->m_task.qType & kTMTaskActive ) ;
  90 }
  91
  92 wxTimer::~wxTimer()
  93 {
  94     Stop();
  95     delete m_info ;
  96     m_info = NULL ;
  97     int index = gTimersInProcess.Index( this ) ;
  98     if ( index != wxNOT_FOUND )
  99         gTimersInProcess.RemoveAt( index ) ;
 100 }
 101
 102 bool wxTimer::Start(int milliseconds,bool mode)
 103 {
 104     (void)wxTimerBase::Start(milliseconds, mode);
 105
 106     wxCHECK_MSG( m_milli > 0, FALSE, wxT("invalid value for timer timeour") );
 107     wxCHECK_MSG( m_info->m_task.tmAddr == NULL , FALSE, wxT("attempting to restart a timer") );
 108
 109     m_milli = milliseconds;
 110 #if defined(UNIVERSAL_INTERFACES_VERSION) && (UNIVERSAL_INTERFACES_VERSION >= 0x0340)
 111     m_info->m_task.tmAddr = NewTimerUPP( MacTimerProc ) ;
 112 #else
 113     m_info->m_task.tmAddr = NewTimerProc( MacTimerProc ) ;
 114 #endif
 115     m_info->m_task.tmWakeUp = 0 ;
 116     m_info->m_task.tmReserved = 0 ;
 117         m_info->m_task.qType = 0 ;
 118         m_info->m_timer = this ;
 119     InsXTime((QElemPtr) &m_info->m_task ) ;
 120     PrimeTime( (QElemPtr) &m_info->m_task , m_milli ) ;
 121     return FALSE;
 122 }
 123
 124 void wxTimer::Stop()
 125 {
 126     m_milli = 0 ;
 127     if ( m_info->m_task.tmAddr )
 128     {
 129         RmvTime(  (QElemPtr) &m_info->m_task ) ;
 130         DisposeTimerUPP(m_info->m_task.tmAddr) ;
 131         m_info->m_task.tmAddr = NULL ;
 132     }
 133     wxMacRemoveAllNotifiersForData( wxMacGetNotifierTable() , this ) ;
 134 }
 135
 136
 137