[htoolkit-cvs] port/src/Port Window.hs,1.16,1.17

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

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

Modified Files:
	Window.hs 
Log Message:
Initial support for dialogs with restricted minimal size. Only Windows for now.


Index: Window.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Window.hs,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Window.hs	7 Oct 2003 21:31:29 -0000	1.16
--- Window.hs	12 Oct 2003 23:14:56 -0000	1.17
***************
*** 22,25 ****
--- 22,26 ----
               , invalidateWindowFrame
               , invalidateWindow
+              , setDialogMinSize
               -- * Properties
  	     , setWindowVisible, getWindowVisible
***************
*** 76,79 ****
--- 77,85 ----
      osInvalidateWindowRect hwnd x0 y0 x1 y1
  foreign import ccall osInvalidateWindowRect :: WindowHandle -> CInt -> CInt -> CInt -> CInt -> IO ()
+ 
+ -- | Set the minimal size of the dialog.
+ setDialogMinSize :: WindowHandle -> Size -> IO ()
+ setDialogMinSize hwnd size = withCSize size (osSetDialogMinSize hwnd)
+ foreign import ccall osSetDialogMinSize :: WindowHandle -> CInt -> CInt -> IO ()
  
  -- | Create a new (invisible) window. If the function succeeds, the return value is a handle to the new window.