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
|
