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.
|
