[htoolkit-cvs] gio/src/examples/simple Able.hs,1.2,1.3

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

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

Modified Files:
	Able.hs 
Log Message:
Return to original example


Index: Able.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/Able.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Able.hs	26 Mar 2003 17:11:48 -0000	1.2
--- Able.hs	26 Mar 2003 18:35:42 -0000	1.3
***************
*** 15,26 ****
  	set w2 [layout =: (hfill bctrl ^^^ hfill bwnd)]
  	enable "Control" bctrl ent
! 	--enable "Window"  bwnd  w1
  	return ()
  	where
  		enable title b w = do
! 			set w [visible =: True]
  			set b [text =: "Disable " ++ title, on command =: disable title b w]
  
  		disable title b w = do
! 			set w [visible =: False]
  			set b [text =: "Enable  " ++ title, on command =: enable  title b w]
--- 15,26 ----
  	set w2 [layout =: (hfill bctrl ^^^ hfill bwnd)]
  	enable "Control" bctrl ent
! 	enable "Window"  bwnd  w1
  	return ()
  	where
  		enable title b w = do
! 			set w [enabled =: True]
  			set b [text =: "Disable " ++ title, on command =: disable title b w]
  
  		disable title b w = do
! 			set w [enabled =: False]
  			set b [text =: "Enable  " ++ title, on command =: enable  title b w]