[htoolkit-cvs] gio/src/Graphics/UI/GIO Timer.hs,1.3,1.4

[<kr_...@us...>]

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