]> git.saurik.com Git - wxWidgets.git/blame - src/mac/timer.cpp
compilation fix
[wxWidgets.git] / src / mac / timer.cpp
CommitLineData
e9576ca5
SC
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
2f1ae414 18#if !USE_SHARED_LIBRARY
e9576ca5 19IMPLEMENT_ABSTRACT_CLASS(wxTimer, wxObject)
2f1ae414
SC
20#endif
21
76a5e5d2
SC
22#ifdef __WXMAC__
23#include "wx/mac/private.h"
24#endif
66a09d47
SC
25#ifndef __DARWIN__
26#include <Timer.h>
27#endif
76a5e5d2 28
e5f0419b
SC
29#include "wx/dynarray.h"
30
76a5e5d2
SC
31typedef struct MacTimerInfo
32{
33 TMTask m_task;
34 wxMacNotifierTableRef m_table ;
35 wxTimer* m_timer ;
36} ;
37
2f1ae414
SC
38static void wxProcessTimer( unsigned long event , void *data ) ;
39
d015713e 40static pascal void MacTimerProc( TMTask * t )
2f1ae414
SC
41{
42 MacTimerInfo * tm = (MacTimerInfo*) t ;
43 wxMacAddEvent( tm->m_table , wxProcessTimer, 0 , (void*) tm->m_timer , TRUE ) ;
44}
45
e5f0419b
SC
46wxArrayPtrVoid gTimersInProcess ;
47
d015713e 48static void wxProcessTimer( unsigned long event , void *data )
2f1ae414
SC
49{
50 if ( !data )
51 return ;
52
53 wxTimer* timer = (wxTimer*) data ;
e5f0419b 54
2f1ae414
SC
55 if ( timer->IsOneShot() )
56 timer->Stop() ;
57
e5f0419b
SC
58 gTimersInProcess.Add( timer ) ;
59
2f1ae414
SC
60 timer->Notify();
61
e5f0419b
SC
62 int index = gTimersInProcess.Index( timer ) ;
63
64 if ( index != wxNOT_FOUND )
2f1ae414 65 {
e5f0419b
SC
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
2f1ae414
SC
73 }
74}
e9576ca5 75
d015713e 76void wxTimer::Init()
e9576ca5 77{
76a5e5d2
SC
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 ;
2f1ae414
SC
85}
86
87bool wxTimer::IsRunning() const
88{
76a5e5d2 89 return ( m_info->m_task.qType & kTMTaskActive ) ;
e9576ca5
SC
90}
91
92wxTimer::~wxTimer()
93{
94 Stop();
f5bb2251
GD
95 if (m_info != NULL) {
96 delete m_info ;
97 m_info = NULL ;
98 }
e5f0419b
SC
99 int index = gTimersInProcess.Index( this ) ;
100 if ( index != wxNOT_FOUND )
101 gTimersInProcess.RemoveAt( index ) ;
e9576ca5
SC
102}
103
104bool wxTimer::Start(int milliseconds,bool mode)
105{
2f1ae414 106 (void)wxTimerBase::Start(milliseconds, mode);
e9576ca5 107
2f1ae414 108 wxCHECK_MSG( m_milli > 0, FALSE, wxT("invalid value for timer timeour") );
76a5e5d2 109 wxCHECK_MSG( m_info->m_task.tmAddr == NULL , FALSE, wxT("attempting to restart a timer") );
e9576ca5 110
2f1ae414 111 m_milli = milliseconds;
4114d0af 112#if defined(UNIVERSAL_INTERFACES_VERSION) && (UNIVERSAL_INTERFACES_VERSION >= 0x0340)
76a5e5d2 113 m_info->m_task.tmAddr = NewTimerUPP( MacTimerProc ) ;
03e11df5 114#else
76a5e5d2 115 m_info->m_task.tmAddr = NewTimerProc( MacTimerProc ) ;
03e11df5 116#endif
76a5e5d2
SC
117 m_info->m_task.tmWakeUp = 0 ;
118 m_info->m_task.tmReserved = 0 ;
119 m_info->m_task.qType = 0 ;
120 m_info->m_timer = this ;
121 InsXTime((QElemPtr) &m_info->m_task ) ;
122 PrimeTime( (QElemPtr) &m_info->m_task , m_milli ) ;
e9576ca5
SC
123 return FALSE;
124}
125
126void wxTimer::Stop()
127{
e9576ca5 128 m_milli = 0 ;
76a5e5d2 129 if ( m_info->m_task.tmAddr )
2f1ae414 130 {
76a5e5d2
SC
131 RmvTime( (QElemPtr) &m_info->m_task ) ;
132 DisposeTimerUPP(m_info->m_task.tmAddr) ;
133 m_info->m_task.tmAddr = NULL ;
2f1ae414
SC
134 }
135 wxMacRemoveAllNotifiersForData( wxMacGetNotifierTable() , this ) ;
e9576ca5
SC
136}
137
138
2f1ae414 139