Alain Pastor wrote:
> 
> At last, perhaps you should consider installing a Time task as a
> replacement for the TIMER thingy. Here is an example :
> 
Gloops! For the example to work, I forgot to add this at the top of
the snippet of code:

'~Toolbox addition

Begin Record TMTask
Dim qLink      As Ptr
Dim qType      As Short 
Dim tmAddr     As Proc
Dim tmCount    As Long 
Dim tmWakeUp   As Long 
Dim tmReserved As Long 
End Record

Toolbox InsTime  ( Ptr QElemPtr) `0x205F,0xA058
Toolbox RmvTime  ( Ptr QElemPtr) `0x205F,0xA059
Toolbox PrimeTime( Ptr QElemPtr, Long count) `0x201F,0x205F,0xA05A
#If CarbonLib
Toolbox Fn NewTimerUPP( Ptr ) = Ptr
Toolbox DisposeTimerUPP( Ptr )
#Endif


-- 
Cheers,

Alain