[htoolkit-cvs] gio/src/Graphics/UI/GIO Timer.hs,1.7,1.8

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

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)