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

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

Update of /cvsroot/htoolkit/gio/src/examples/life
In directory sc8-pr-cvs1:/tmp/cvs-serv16778/src/examples/life

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/life/Main.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Main.hs	3 Oct 2003 12:54:39 -0000	1.2
--- Main.hs	7 Oct 2003 21:39:31 -0000	1.3
***************
*** 23,28 ****
  		    myorigin = Point (dw `div` 2) (dh `div` 2)
  		w <- window [domain =: mydomain, origin =: myorigin, bgcolor =: black]
! 		set w [on mouse =: onMouse w ref, on paint =: onPaint ref]
! 		set w [origin =: myorigin]
  
  		mfile <- menu  [title =: "File"] mainMenu
--- 23,28 ----
  		    myorigin = Point (dw `div` 2) (dh `div` 2)
  		w <- window [domain =: mydomain, origin =: myorigin, bgcolor =: black]
! 		set w [on mouse =: onMouse w ref, on paint =: onPaint ref, origin =: myorigin]
! 		showWindow w
  
  		mfile <- menu  [title =: "File"] mainMenu