Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv10214/src/Port
Modified Files:
Handlers.hs Window.hs
Log Message:
All register/unregister functions for all event types are renamed. The new scheme:
registerXXX -> setXXXHandler
unregisterXXX -> setXXXDefHandler
added getXXXHandler functions
Index: Handlers.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Handlers.hs,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Handlers.hs 3 Mar 2003 19:47:26 -0000 1.11
--- Handlers.hs 24 Mar 2003 16:58:33 -0000 1.12
***************
*** 37,89 ****
,registerWindow, unregisterWindow, getAllWindowHandles
! -- ** Register events
! ,registerWindowReLayout
! ,registerWindowDismiss
! ,registerWindowDestroy
! ,registerWindowPaint
! ,registerWindowResize
! ,registerWindowScroll
! ,registerWindowMouse
[...1007 lines suppressed...]
*** 595,603 ****
registerTimer :: TimerHandle -> IO () -> IO ()
registerTimer htimer handler
! = register htimer handler handlersTimer
unregisterTimer :: TimerHandle -> IO ()
unregisterTimer htimer
! = unregister htimer handlersTimer
getAllTimerHandles :: IO [TimerHandle]
--- 699,707 ----
registerTimer :: TimerHandle -> IO () -> IO ()
registerTimer htimer handler
! = setHandler htimer handler handlersTimer
unregisterTimer :: TimerHandle -> IO ()
unregisterTimer htimer
! = setDefHandler htimer handlersTimer
getAllTimerHandles :: IO [TimerHandle]
Index: Window.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Window.hs,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Window.hs 10 Feb 2003 22:42:09 -0000 1.5
--- Window.hs 24 Mar 2003 16:58:33 -0000 1.6
***************
*** 45,49 ****
import Graphics.UI.Port.Types
import Graphics.UI.Port.Canvas(initCanvas, doneCanvas, defaultPen, dialogPen)
! import Graphics.UI.Port.Handlers( getAllWindowHandles, registerWindow, registerWindowDismiss, registerWindowPaint )
{-----------------------------------------------------------------------------------------
--- 45,49 ----
import Graphics.UI.Port.Types
import Graphics.UI.Port.Canvas(initCanvas, doneCanvas, defaultPen, dialogPen)
! import Graphics.UI.Port.Handlers( getAllWindowHandles, registerWindow, setWindowDismissHandler, setWindowPaintHandler )
{-----------------------------------------------------------------------------------------
***************
*** 79,84 ****
hwnd <- osCreateWindow
registerWindow hwnd
! registerWindowPaint hwnd onpaint
! registerWindowDismiss hwnd (destroyWindow hwnd)
return hwnd
where
--- 79,84 ----
hwnd <- osCreateWindow
registerWindow hwnd
! setWindowPaintHandler hwnd onpaint
! setWindowDismissHandler hwnd (destroyWindow hwnd)
return hwnd
where
***************
*** 93,98 ****
hwnd <- osCreateDialog hparent
registerWindow hwnd
! registerWindowPaint hwnd onpaint
! registerWindowDismiss hwnd (destroyWindow hwnd)
return hwnd
where
--- 93,98 ----
hwnd <- osCreateDialog hparent
registerWindow hwnd
! setWindowPaintHandler hwnd onpaint
! setWindowDismissHandler hwnd (destroyWindow hwnd)
return hwnd
where
|
