[htoolkit-cvs] port/src/Port Handlers.hs,1.11,1.12 Window.hs,1.5,1.6

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

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