Update of /cvsroot/htoolkit/gio/src/examples/picture
In directory sc8-pr-cvs1:/tmp/cvs-serv16778/src/examples/picture
Modified Files:
Main.hs
Log Message:
Make possible to hide/show a window at any time. The newly created window is always hidden.
Index: Main.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/picture/Main.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Main.hs 4 Oct 2003 08:34:24 -0000 1.2
--- Main.hs 7 Oct 2003 21:39:31 -0000 1.3
***************
*** 125,128 ****
--- 125,129 ----
, on paint =: onPaint w pic ref
]
+ showWindow w
where
onDestroyPicWindow mpic mclose = do
|
