[htoolkit-cvs] gio/src/Graphics/UI/GIO Process.hs,1.5,1.6

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

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)
+