Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv715/src/Graphics/UI/GIO
Modified Files:
Process.hs
Log Message:
Basic support for statusbar
Index: Process.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Process.hs,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Process.hs 20 Oct 2003 10:17:20 -0000 1.5
--- Process.hs 14 Nov 2003 22:36:28 -0000 1.6
***************
*** 17,21 ****
( Process, pc
, start, quit, halt
! , ConfigKey(..), configKey, configKeyDef
) where
--- 17,21 ----
( Process, pc
, start, quit, halt
! , ConfigKey(..), configKey, configKeyDef, visibleStatusBar
) where
***************
*** 65,66 ****
--- 65,70 ----
configKeyDef :: ConfigKey a => String -> a -> Attr Process a
configKeyDef name defvalue = newAttr (\p -> Lib.getConfigKeyDef name defvalue) (\p v -> Lib.setConfigKey name v)
+
+ visibleStatusBar :: Attr Process Bool
+ visibleStatusBar = newAttr (\p -> Lib.getStatusBarVisible) (\p -> Lib.setStatusBarVisible)
+
|
