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
|
