Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv14756/src/Graphics/UI/GIO
Modified Files:
Timer.hs
Log Message:
bugfix`
Index: Timer.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Timer.hs,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Timer.hs 14 Apr 2003 17:57:33 -0000 1.7
--- Timer.hs 14 Apr 2003 18:01:34 -0000 1.8
***************
*** 50,52 ****
instance Deadly Timer where
destroyWidget t = Lib.destroyTimer (getTimerHandle t)
! destroy = newEvent (const Lib.getTimerDestroyHandler) (const Lib.setTimerDestroyHandler) (const Lib.setTimerDestroyDefHandler)
--- 50,52 ----
instance Deadly Timer where
destroyWidget t = Lib.destroyTimer (getTimerHandle t)
! destroy = newEvent (Lib.getTimerDestroyHandler . getTimerHandle) (Lib.setTimerDestroyHandler . getTimerHandle) (Lib.setTimerDestroyDefHandler . getTimerHandle)
|
