// Modified by:
// Created: 04/01/98
// RCS-ID: $Id$
-// Copyright: (c) Julian Smart and Markus Holzem
-// Licence: wxWindows license
+// Copyright: (c) Julian Smart
+// Licence: wxWindows licence
/////////////////////////////////////////////////////////////////////////////
#ifdef __GNUG__
#define _EXPORT _export
#endif
+// should probably be in wx/msw/private.h
+#ifdef __WXMICROWIN__
+ #define MakeProcInstance(proc, hinst) proc
+#endif
+
IMPLEMENT_ABSTRACT_CLASS(wxTimer, wxObject)
// ============================================================================
{
(void)wxTimerBase::Start(milliseconds, oneShot);
- wxCHECK_MSG( m_milli > 0, FALSE, wxT("invalid value for timer timeour") );
+ wxCHECK_MSG( m_milli > 0, false, wxT("invalid value for timer timeour") );
- wxTimerList.DeleteObject(this);
TIMERPROC wxTimerProcInst = (TIMERPROC)
MakeProcInstance((FARPROC)wxTimerProc, wxGetInstance());
- m_id = SetTimer(NULL, (UINT)(m_id ? m_id : 1),
- (UINT)milliseconds, wxTimerProcInst);
+ m_id = ::SetTimer(NULL, (UINT)(m_id ? m_id : 1),
+ (UINT)m_milli, wxTimerProcInst);
+
if ( m_id > 0 )
{
wxTimerList.Append(m_id, this);
- return TRUE;
+ return true;
}
else
{
wxLogSysError(_("Couldn't create a timer"));
- return FALSE;
+ return false;
}
}
{
if ( m_id )
{
- KillTimer(NULL, (UINT)m_id);
+ ::KillTimer(NULL, (UINT)m_id);
+
wxTimerList.DeleteObject(this);
}
wxCHECK_MSG( node, 0, wxT("bogus timer id in wxTimerProc") );
- wxProcessTimer(*(wxTimer *)node->Data());
+ wxProcessTimer(*(wxTimer *)node->GetData());
return 0;
}