[htoolkit-cvs] port/src/Port Handlers.hs,1.18,1.19

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

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv3723/src/Port

Modified Files:
	Handlers.hs 
Log Message:
Add TimerDestroy event


Index: Handlers.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Handlers.hs,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** Handlers.hs	1 Apr 2003 23:54:20 -0000	1.18
--- Handlers.hs	14 Apr 2003 17:36:53 -0000	1.19
***************
*** 32,36 ****
                  
                  -- * Timers
!                 ,setTimerHandler, setTimerDefHandler, getTimerHandler, getAllTimerHandles
                  
                  -- * Windows
--- 32,38 ----
                  
                  -- * Timers
!                 ,setTimerHandler,            setTimerDefHandler,            getTimerHandler
!                 ,setTimerDestroyHandler,     setTimerDestroyDefHandler,     getTimerDestroyHandler
!                 ,getAllTimerHandles
                  
                  -- * Windows
***************
*** 575,581 ****
  handleProcessDestroy = readMVar handlersProcessDestroy >>= id
  
! {-----------------------------------------------------------------------------------------
!   Timers
! -----------------------------------------------------------------------------------------}
  {-# NOINLINE handlersTimer #-}
  handlersTimer :: MVar (PtrMap TimerHandle (IO ()))
--- 577,583 ----
  handleProcessDestroy = readMVar handlersProcessDestroy >>= id
  
! -----------------------------------------------------------------------------------------
! --  Timers
! -----------------------------------------------------------------------------------------
  {-# NOINLINE handlersTimer #-}
  handlersTimer :: MVar (PtrMap TimerHandle (IO ()))
***************
*** 602,605 ****
--- 604,632 ----
  getAllTimerHandles = fmap keys (readMVar handlersTimer)
  
+ -----------------------------------------------------------------------------------------
+ -- TimerDestroy
+ -----------------------------------------------------------------------------------------
+ 
+ {-# NOINLINE handlersTimerDestroy #-}
+ handlersTimerDestroy :: MVar (PtrMap TimerHandle (IO ()))
+ handlersTimerDestroy
+   = unsafePerformIO (newMVar empty)
+ 
+ handleTimerDestroy :: TimerHandle -> IO ()
+ handleTimerDestroy htimer
+   = invokeHandler htimer handlersTimerDestroy id
+ 
+ setTimerDestroyHandler :: TimerHandle -> IO () -> IO ()
+ setTimerDestroyHandler htimer handler
+   = setHandler htimer handler handlersTimerDestroy
+ 
+ setTimerDestroyDefHandler :: TimerHandle -> IO ()
+ setTimerDestroyDefHandler htimer
+   = setDefHandler htimer handlersTimerDestroy
+   
+ getTimerDestroyHandler :: TimerHandle -> IO (IO ())
+ getTimerDestroyHandler htimer
+   = getHandler htimer (return ()) handlersTimerDestroy
+ 
  {-----------------------------------------------------------------------------------------
    foreign exports
***************
*** 620,623 ****
--- 647,651 ----
  foreign export ccall handleMenusUpdate :: IO ()
  foreign export ccall handleTimer :: TimerHandle -> IO ()
+ foreign export ccall handleTimerDestroy :: TimerHandle -> IO ()
  foreign export ccall handleProcessDismiss :: IO ()
  foreign export ccall handleProcessDestroy :: IO ()