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]
|
