Update of /cvsroot/htoolkit/gio/src/examples/worm
In directory sc8-pr-cvs1:/tmp/cvs-serv11074/gio/src/examples/worm
Modified Files:
Main.hs
Log Message:
Simplified API for MenuRadioItems
Index: Main.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/worm/Main.hs,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Main.hs 16 Jul 2003 22:22:00 -0000 1.7
--- Main.hs 15 Aug 2003 21:24:55 -0000 1.8
***************
*** 34,47 ****
-- Options menu
mopts <- menu [title =: "Options"] mainMenu
! mspeed <- menuRadioGroup [] mopts
! menuRadioItem [title =: "Slow"
! ,on command =: onSetSpeed ref easySpeed
! ] mspeed
! menuRadioItem [title =: "Medium"
! , on command =: onSetSpeed ref mediumSpeed
! ] mspeed
! menuRadioItem [title =: "Fast"
! ,on command =: onSetSpeed ref hardSpeed
! ] mspeed
menuline mopts
menuitem [title =: "High Scores"
--- 34,50 ----
-- Options menu
mopts <- menu [title =: "Options"] mainMenu
! mSlow <- menuRadioItem
! [ title =: "Slow"
! , on command =: onSetSpeed ref easySpeed
! ] mopts
! mMedium <- menuRadioItem
! [ title =: "Medium"
! , on command =: onSetSpeed ref mediumSpeed
! ] mopts
! mFast <- menuRadioItem
! [ title =: "Fast"
! , on command =: onSetSpeed ref hardSpeed
! ] mopts
! setMenuRadioGroup [mSlow, mMedium, mFast]
menuline mopts
menuitem [title =: "High Scores"
|
