[htoolkit-cvs] port/src/Port Window.hs,1.3,1.4

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

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

Modified Files:
	Window.hs 
Log Message:
Add default handlers for Paint event.


Index: Window.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Window.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Window.hs	23 Jan 2003 20:19:32 -0000	1.3
--- Window.hs	8 Feb 2003 08:38:08 -0000	1.4
***************
*** 39,42 ****
--- 39,43 ----
  import Foreign.Marshal.Alloc
  import Graphics.UI.Port.Types
+ import Graphics.UI.Port.Canvas(initCanvas, doneCanvas, defaultPen, dialogPen)
  import Graphics.UI.Port.Handlers( registerWindow, registerWindowPaint )  
  
***************
*** 73,77 ****
--- 74,83 ----
    = do hwnd <- osCreateWindow
         registerWindow hwnd
+        registerWindowPaint hwnd onpaint
         return hwnd
+        where
+        		onpaint canvas rect = do
+ 			initCanvas defaultPen UnBuffered canvas					
+ 			doneCanvas canvas
  foreign import ccall osCreateWindow  :: IO WindowHandle
  
***************
*** 81,85 ****
--- 87,96 ----
    = do hwnd <- osCreateDialog hparent
         registerWindow hwnd
+        registerWindowPaint hwnd onpaint
         return hwnd
+        where
+ 		onpaint canvas rect = do
+        			initCanvas dialogPen UnBuffered canvas					
+ 			doneCanvas canvas
  foreign import ccall osCreateDialog :: WindowHandle -> IO WindowHandle