Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv12746/src/Port
Modified Files:
Handlers.hs
Log Message:
Fix functions names
Index: Handlers.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Handlers.hs,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Handlers.hs 24 Mar 2003 17:07:08 -0000 1.13
--- Handlers.hs 25 Mar 2003 23:23:34 -0000 1.14
***************
*** 38,42 ****
-- ** Events
! ,setWindowReLayoutHandler, setWindowReLayoutDefHandler, getWindowReLayoutDefHandler
,setWindowDismissHandler, setWindowDismissDefHandler, getWindowDismissHandler
,setWindowDestroyHandler, setWindowDestroyDefHandler, getWindowDestroyHandler
--- 38,42 ----
-- ** Events
! ,setWindowReLayoutHandler, setWindowReLayoutDefHandler, getWindowReLayoutHandler
,setWindowDismissHandler, setWindowDismissDefHandler, getWindowDismissHandler
,setWindowDestroyHandler, setWindowDestroyDefHandler, getWindowDestroyHandler
***************
*** 45,49 ****
,setWindowScrollHandler, setWindowScrollDefHandler, getWindowScrollHandler
,setWindowMouseHandler, setWindowMouseDefHandler, getWindowMouseHandler
! ,setWindowKeyboardHandler, setWindowMouseDefHandler, getWindowMouseHandler
,setWindowActivateHandler, setWindowActivateDefHandler, getWindowActivateHandler
,setWindowDeactivateHandler,setWindowDeactivateDefHandler,getWindowDeactivateHandler
--- 45,49 ----
,setWindowScrollHandler, setWindowScrollDefHandler, getWindowScrollHandler
,setWindowMouseHandler, setWindowMouseDefHandler, getWindowMouseHandler
! ,setWindowKeyboardHandler, setWindowKeyboardDefHandler, getWindowKeyboardHandler
,setWindowActivateHandler, setWindowActivateDefHandler, getWindowActivateHandler
,setWindowDeactivateHandler,setWindowDeactivateDefHandler,getWindowDeactivateHandler
***************
*** 234,239 ****
= setDefHandler hwnd handlersWindowReLayout
! getWindowReLayoutDefHandler :: WindowHandle -> IO (IO ())
! getWindowReLayoutDefHandler hwnd
= getHandler hwnd (return ()) handlersWindowReLayout
--- 234,239 ----
= setDefHandler hwnd handlersWindowReLayout
! getWindowReLayoutHandler :: WindowHandle -> IO (IO ())
! getWindowReLayoutHandler hwnd
= getHandler hwnd (return ()) handlersWindowReLayout
|
