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

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

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"