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

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

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

Modified Files:
	Able.hs 
Log Message:
Implement readOnly and visible attributes for Entry control


Index: Able.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/Able.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Able.hs	26 Mar 2003 15:39:47 -0000	1.1
--- Able.hs	26 Mar 2003 17:11:48 -0000	1.2
***************
*** 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]
--- 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]