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

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

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