Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv7048/gio/src/Graphics/UI/GIO
Modified Files:
Timer.hs
Log Message:
default interval = 0
Index: Timer.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Timer.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Timer.hs 26 Mar 2003 02:19:56 -0000 1.3
--- Timer.hs 26 Mar 2003 02:23:24 -0000 1.4
***************
*** 33,37 ****
timer :: [Prop Timer] -> IO Timer
timer props
! = do vtimer <- Lib.createTimer 1000
let t = Timer vtimer
set t props
--- 33,37 ----
timer :: [Prop Timer] -> IO Timer
timer props
! = do vtimer <- Lib.createTimer 0
let t = Timer vtimer
set t props
|
