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
|
