[htoolkit-cvs] gio/src/Graphics/UI/GIO Window.hs,1.29,1.30

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

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv17524/gio/src/Graphics/UI/GIO

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/gio/src/Graphics/UI/GIO/Window.hs,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** Window.hs	10 Oct 2003 14:21:52 -0000	1.29
--- Window.hs	12 Oct 2003 23:14:57 -0000	1.30
***************
*** 94,97 ****
--- 94,98 ----
         let d1 = maxSize domain needed
             d2 = maxSize d1 view
+        Lib.setDialogMinSize (hwindow w) d1
         Lib.setWindowDomainSize (hwindow w) d1
         layoutInRect (rectOfSize d2) lay