OpenEuphoria

1. KILL THAT TIMER !!!!!!

• Posted by Patrick Quist <quistnet at HOTMAIL.COM> Mar 08, 1999
• 491 views

Hy,

Anyone noticed that in Dos32Lib the killTimer procedure doesn't work ?

The org. proc. is :

global procedure killTimer( integer id, integer timerId )
    sequence timer
    for i = 1 to length( timers ) do
        timer = timers[i]
        if timers[TimerWin] = id
        and timers[TimerId] = timerId then
            timers = timers[1..i-1] & timers[i+1..length(timers)]
            return
        end if
    end for
end procedure


But it should be :

global procedure killTimer( integer id, integer timerId )
    sequence timer
    for i = 1 to length( timers ) do
        timer = timers[i]
        if timer[TimerWin] = id
        and timer[TimerId] = timerId then
            timers = timers[1..i-1] & timers[i+1..length(timers)]
            return
        end if
    end for
end procedure


David Cuny forgot to remove the "s" at the "if" statement.
Nothing special....

Bye,
PQ
QC


______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com