[htoolkit-cvs] gio/src/examples/worm Main.hs,1.6,1.7

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

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

Modified Files:
	Main.hs 
Log Message:
Set resizeable flag for the window


Index: Main.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/worm/Main.hs,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Main.hs	13 Jul 2003 08:15:41 -0000	1.6
--- Main.hs	16 Jul 2003 22:22:00 -0000	1.7
***************
*** 62,65 ****
--- 62,66 ----
                  , on paint   =: onPaint ref
                  , on dismiss =: halt
+ 		, resizeable =: False
                  ]
  
***************
*** 69,75 ****
  
      set mplay [on command =: onPlay ref mnew mopts mplay mexit tm w]
!     set mnew [on command =: onNew ref w >> set w [resizeable =: False]]
! 
!     --set w [resizeable =: False]
  
  onPaint ref can _ _ = do
--- 70,74 ----
  
      set mplay [on command =: onPlay ref mnew mopts mplay mexit tm w]
!     set mnew [on command =: onNew ref w]
  
  onPaint ref can _ _ = do