|
From: <kr_...@us...> - 2003-03-26 08:46:36
|
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
|