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

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

Update of /cvsroot/htoolkit/gio/src/examples/worm
In directory sc8-pr-cvs1:/tmp/cvs-serv12405

Modified Files:
	Main.hs 
Log Message:
final release


Index: Main.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/worm/Main.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Main.hs	7 Jun 2003 18:30:05 -0000	1.1
--- Main.hs	8 Jun 2003 10:25:07 -0000	1.2
***************
*** 12,16 ****
  
  --	GUI constants.
- helpFile	= "WormHelp"
  hiScoresFile	= "wormhi"
  nrOfHiScores	= 8
--- 12,15 ----
***************
*** 26,38 ****
  startWorm best = do
  	ref <- newIORef (initState best)
- 	
- 	-- Main window
- 	w <- window [ bgcolor    =: wormBackGroundColour
- 	            , bkDrawMode =: True
- 	            , view       =: Size 488 303
- 	            , on paint   =: onPaint ref
- 	            , on dismiss =: halt
- 	            , resizeable =: False
- 	            ]
  
  	-- File menu
--- 25,28 ----
***************
*** 56,59 ****
--- 46,58 ----
  	menuitem [title =: "About Worm...",  on command =: onAbout] mhelp
  	
+ 	-- Main window
+ 	w <- window [ bgcolor    =: wormBackGroundColour
+ 		    , bkDrawMode =: True
+ 		    , view       =: Size 488 303
+ 		    , on paint   =: onPaint ref
+ 		    , on dismiss =: halt
+ 		    , resizeable =: False
+ 	            ]
+ 	            
  	-- Timer
  	tm <- timer [enabled =: False]
***************
*** 154,159 ****
  				let onOK refName dlg e = do
  					get e title >>= writeIORef refName
! 					dismissWidget dlg
! 					return ()
  				btnOK <- button [title =: "OK", on command =: onOK refName dlg e] dlg
  				set dlg [layout =: padding 5 (lbl1 ^^^ padding 15 (lbl2 ^^^ hfill e) ^^^ hcenter btnOK)]
--- 153,157 ----
  				let onOK refName dlg e = do
  					get e title >>= writeIORef refName
! 					destroyWidget dlg
  				btnOK <- button [title =: "OK", on command =: onOK refName dlg e] dlg
  				set dlg [layout =: padding 5 (lbl1 ^^^ padding 15 (lbl2 ^^^ hfill e) ^^^ hcenter btnOK)]