[htoolkit-cvs] port/src/Port Handlers.hs,1.15,1.16

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

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

Modified Files:
	Handlers.hs 
Log Message:
Replace DestroyProcess with ProcessDestroy and DismissProcess with ProcessDestroy. This makes more consistent naming convention.


Index: Handlers.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Handlers.hs,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** Handlers.hs	26 Mar 2003 02:19:56 -0000	1.15
--- Handlers.hs	26 Mar 2003 08:45:52 -0000	1.16
***************
*** 53,58 ****
                  
                  -- * Process events
!                 ,setDismissProcessHandler, setDismissProcessDefHandler, getDismissProcessHandler
!                 ,setDestroyProcessHandler, setDestroyProcessDefHandler, getDestroyProcessHandler
  
                  -- * Control commands
--- 53,58 ----
                  
                  -- * Process events
!                 ,setProcessDismissHandler, setProcessDismissDefHandler, getProcessDismissHandler
!                 ,setProcessDestroyHandler, setProcessDestroyDefHandler, getProcessDestroyHandler
  
                  -- * Control commands
***************
*** 526,579 ****
  
  {-----------------------------------------------------------------------------------------
!   DismissProcess
  -----------------------------------------------------------------------------------------}
  
! {-# NOINLINE handlersDismissProcess #-}
! handlersDismissProcess :: MVar (IO ())
! handlersDismissProcess
    = unsafePerformIO (newMVar (return ()))
  
! setDismissProcessHandler :: IO () -> IO ()
! setDismissProcessHandler handler = do
! 	takeMVar handlersDismissProcess
! 	putMVar handlersDismissProcess handler
  
! setDismissProcessDefHandler :: IO ()
! setDismissProcessDefHandler = do
! 	takeMVar handlersDismissProcess
! 	putMVar handlersDismissProcess (return ())
  	
! getDismissProcessHandler :: IO (IO ())
! getDismissProcessHandler =
! 	readMVar handlersDismissProcess
  
! handleDismissProcess :: IO ()
! handleDismissProcess = readMVar handlersDismissProcess >>= id
  
  {-----------------------------------------------------------------------------------------
!   DestroyProcess
  -----------------------------------------------------------------------------------------}
  
! {-# NOINLINE handlersDestroyProcess #-}
! handlersDestroyProcess :: MVar (IO ())
! handlersDestroyProcess
    = unsafePerformIO (newMVar (return ()))
  
! setDestroyProcessHandler :: IO () -> IO ()
! setDestroyProcessHandler handler = do
! 	takeMVar handlersDestroyProcess
! 	putMVar handlersDestroyProcess handler
  
! setDestroyProcessDefHandler :: IO ()
! setDestroyProcessDefHandler = do
! 	takeMVar handlersDestroyProcess
! 	putMVar handlersDestroyProcess (return ())
  
! getDestroyProcessHandler :: IO (IO ())
! getDestroyProcessHandler =
! 	readMVar handlersDismissProcess
  	
! handleDestroyProcess :: IO ()
! handleDestroyProcess = readMVar handlersDestroyProcess >>= id
  
  {-----------------------------------------------------------------------------------------
--- 526,579 ----
  
  {-----------------------------------------------------------------------------------------
!   ProcessDismiss
  -----------------------------------------------------------------------------------------}
  
! {-# NOINLINE handlersProcessDismiss #-}
! handlersProcessDismiss :: MVar (IO ())
! handlersProcessDismiss
    = unsafePerformIO (newMVar (return ()))
  
! setProcessDismissHandler :: IO () -> IO ()
! setProcessDismissHandler handler = do
! 	takeMVar handlersProcessDismiss
! 	putMVar  handlersProcessDismiss handler
  
! setProcessDismissDefHandler :: IO ()
! setProcessDismissDefHandler = do
! 	takeMVar handlersProcessDismiss
! 	putMVar  handlersProcessDismiss (return ())
  	
! getProcessDismissHandler :: IO (IO ())
! getProcessDismissHandler =
! 	readMVar handlersProcessDismiss
  
! handleProcessDismiss :: IO ()
! handleProcessDismiss = readMVar handlersProcessDismiss >>= id
  
  {-----------------------------------------------------------------------------------------
!   ProcessDestroy
  -----------------------------------------------------------------------------------------}
  
! {-# NOINLINE handlersProcessDestroy #-}
! handlersProcessDestroy :: MVar (IO ())
! handlersProcessDestroy
    = unsafePerformIO (newMVar (return ()))
  
! setProcessDestroyHandler :: IO () -> IO ()
! setProcessDestroyHandler handler = do
! 	takeMVar handlersProcessDestroy
! 	putMVar  handlersProcessDestroy handler
  
! setProcessDestroyDefHandler :: IO ()
! setProcessDestroyDefHandler = do
! 	takeMVar handlersProcessDestroy
! 	putMVar  handlersProcessDestroy (return ())
  
! getProcessDestroyHandler :: IO (IO ())
! getProcessDestroyHandler =
! 	readMVar handlersProcessDestroy
  	
! handleProcessDestroy :: IO ()
! handleProcessDestroy = readMVar handlersProcessDestroy >>= id
  
  {-----------------------------------------------------------------------------------------
***************
*** 621,624 ****
  foreign export ccall handleMenusUpdate :: IO ()
  foreign export ccall handleTimer :: TimerHandle -> IO ()
! foreign export ccall handleDismissProcess :: IO ()
! foreign export ccall handleDestroyProcess :: IO ()
\ No newline at end of file
--- 621,624 ----
  foreign export ccall handleMenusUpdate :: IO ()
  foreign export ccall handleTimer :: TimerHandle -> IO ()
! foreign export ccall handleProcessDismiss :: IO ()
! foreign export ccall handleProcessDestroy :: IO ()
\ No newline at end of file