src/os2/timer.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/os2/timer.cpp
   3 // Purpose:     wxTimer implementation
   4 // Author:      David Webster
   5 // Modified by:
   6 // Created:     10/17/99
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) David Webster
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 // For compilers that support precompilation, includes "wx.h".
  13 #include "wx/wxprec.h"
  14
  15 #ifndef WX_PRECOMP
  16     #include "wx/window.h"
  17     #include "wx/list.h"
  18     #include "wx/event.h"
  19     #include "wx/app.h"
  20 #endif
  21
  22 #include "wx/os2/private.h"
  23 #include "wx/intl.h"
  24 #include "wx/log.h"
  25
  26 #include "wx/timer.h"
  27
  28 #include <time.h>
  29 #include <sys/types.h>
  30
  31 #include <sys/timeb.h>
  32
  33 // ----------------------------------------------------------------------------
  34 // private globals
  35 // ----------------------------------------------------------------------------
  36
  37 // define a hash containing all the timers: it is indexed by timer id and
  38 // contains the corresponding timer
  39 WX_DECLARE_HASH_MAP(unsigned long, wxTimer *, wxIntegerHash, wxIntegerEqual,
  40                     wxTimerMap);
  41
  42 // instead of using a global here, wrap it in a static function as otherwise it
  43 // could have been used before being initialized if a timer object were created
  44 // globally
  45 static wxTimerMap& TimerMap()
  46 {
  47     static wxTimerMap s_timerMap;
  48
  49     return s_timerMap;
  50 }
  51
  52 // ----------------------------------------------------------------------------
  53 // private functions
  54 // ----------------------------------------------------------------------------
  55
  56 // timer callback used for all timers
  57 ULONG wxTimerProc(HWND hwnd, ULONG, int nIdTimer, ULONG);
  58
  59 // ----------------------------------------------------------------------------
  60 // macros
  61 // ----------------------------------------------------------------------------
  62
  63 IMPLEMENT_ABSTRACT_CLASS(wxTimer, wxEvtHandler)
  64
  65 // ============================================================================
  66 // implementation
  67 // ============================================================================
  68
  69 // ----------------------------------------------------------------------------
  70 // wxTimer class
  71 // ----------------------------------------------------------------------------
  72
  73 void wxTimer::Init()
  74 {
  75     m_ulId = 0;
  76 }
  77
  78 wxTimer::~wxTimer()
  79 {
  80     wxTimer::Stop();
  81 }
  82
  83 void wxTimer::Notify()
  84 {
  85     //
  86     // The base class version generates an event if it has owner - which it
  87     // should because otherwise nobody can process timer events, but it does
  88     // not use the OS's ID, which OS/2 must have to figure out which timer fired
  89     //
  90     wxCHECK_RET( m_owner, _T("wxTimer::Notify() should be overridden.") );
  91
  92     wxTimerEvent                    vEvent( m_idTimer
  93                                            ,m_milli
  94                                           );
  95
  96     (void)m_owner->ProcessEvent(vEvent);
  97 } // end of wxTimer::Notify
  98
  99 bool wxTimer::Start(
 100   int                               nMilliseconds
 101 , bool                              bOneShot
 102 )
 103 {
 104     (void)wxTimerBase::Start( nMilliseconds
 105                              ,bOneShot
 106                             );
 107
 108     wxCHECK_MSG( m_milli > 0L, FALSE, wxT("invalid value for timer") );
 109
 110     wxWindow*                       pWin = NULL;
 111
 112     if (m_owner)
 113     {
 114         pWin = (wxWindow*)m_owner;
 115         m_ulId = ::WinStartTimer( m_Hab
 116                                  ,pWin->GetHWND()
 117                                  ,m_idTimer
 118                                  ,(ULONG)nMilliseconds
 119                                 );
 120     }
 121     else
 122         m_ulId = ::WinStartTimer( m_Hab
 123                                  ,NULLHANDLE
 124                                  ,0
 125                                  ,(ULONG)nMilliseconds
 126                                 );
 127     if (m_ulId > 0L)
 128     {
 129         // check that SetTimer() didn't reuse an existing id: according to
 130         // the MSDN this can happen and this would be catastrophic to us as
 131         // we rely on ids uniquely identifying the timers because we use
 132         // them as keys in the hash
 133         if ( TimerMap().find(m_ulId) != TimerMap().end() )
 134         {
 135             wxLogError(_("Timer creation failed."));
 136
 137             ::WinStopTimer(m_Hab, pWin?(pWin->GetHWND()):NULL, m_ulId);
 138             m_ulId = 0;
 139
 140             return false;
 141         }
 142
 143         TimerMap()[m_ulId] = this;
 144
 145         return true;
 146     }
 147     else
 148     {
 149         wxLogSysError(_("Couldn't create a timer"));
 150
 151         return(FALSE);
 152     }
 153 }
 154
 155 void wxTimer::Stop()
 156 {
 157     if ( m_ulId )
 158     {
 159         if (m_owner)
 160         {
 161             wxWindow*                   pWin = (wxWindow*)m_owner;
 162
 163             ::WinStopTimer(m_Hab, pWin->GetHWND(), m_ulId);
 164         }
 165         else
 166             ::WinStopTimer(m_Hab, NULLHANDLE, m_ulId);
 167
 168         TimerMap().erase(m_ulId);
 169     }
 170     m_ulId = 0L;
 171 }
 172
 173 // ----------------------------------------------------------------------------
 174 // private functions
 175 // ----------------------------------------------------------------------------
 176
 177 void wxProcessTimer(
 178   wxTimer&                          rTimer
 179 )
 180 {
 181     //
 182     // Avoid to process spurious timer events
 183     //
 184     if (rTimer.m_ulId == 0L)
 185         return;
 186
 187     if (rTimer.IsOneShot())
 188         rTimer.Stop();
 189
 190     rTimer.Notify();
 191 }
 192
 193 ULONG wxTimerProc(
 194   HWND                              WXUNUSED(hwnd)
 195 , ULONG
 196 , int                               nIdTimer
 197 , ULONG
 198 )
 199 {
 200     wxTimerMap::iterator node = TimerMap().find((ULONG)nIdTimer);
 201
 202     wxCHECK_MSG(node != TimerMap().end(), 0,
 203                 wxT("bogus timer id in wxTimerProc") );
 204     wxProcessTimer(*(node->second));
 205     return 0;
 206 }