Update of /cvsroot/htoolkit/gio/src/examples/worm
In directory sc8-pr-cvs1:/tmp/cvs-serv24454
Modified Files:
Main.hs
Log Message:
formatting
Index: Main.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/worm/Main.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Main.hs 8 Jun 2003 10:25:07 -0000 1.2
--- Main.hs 8 Jun 2003 11:11:03 -0000 1.3
***************
*** 29,33 ****
mfile <- menu [title =: "File"] mainMenu
mnew <- menuitem [title =: "New", accel =: KeyChar '\^N'] mfile
! mplay <- menuitem [title =: "Play", accel =: KeyChar '\^P'] mfile
menuline mfile
mexit <- menuitem [title =: "Exit", on command =: halt] mfile
--- 29,33 ----
mfile <- menu [title =: "File"] mainMenu
mnew <- menuitem [title =: "New", accel =: KeyChar '\^N'] mfile
! mplay <- menuitem [title =: "Play", accel =: KeyChar '\^P'] mfile
menuline mfile
mexit <- menuitem [title =: "Exit", on command =: halt] mfile
|
