[htoolkit-cvs] gio/src/examples/picture Main.hs,1.2,1.3

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

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