[htoolkit-cvs] gio/src/Graphics/UI/GIO StatusBar.hs,1.3,1.4

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

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv22710/gio/src/Graphics/UI/GIO

Modified Files:
	StatusBar.hs 
Log Message:
Add support for StatusBar(count) and Indicator(pos) attributes


Index: StatusBar.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/StatusBar.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** StatusBar.hs	16 Nov 2003 13:26:55 -0000	1.3
--- StatusBar.hs	22 Nov 2003 09:38:03 -0000	1.4
***************
*** 40,43 ****
--- 40,47 ----
  instance Titled StatusBar where
    title = newAttr (\sb -> Lib.getStatusBarTitle) (\sb -> Lib.setStatusBarTitle)
+   
+ instance Countable StatusBar where
+   count = readAttr "count" (\sb -> Lib.getStatusBarIndicatorsCount)
+ 
  
  -- | Push a new status message onto the status bar stack and display it.
***************
*** 88,89 ****
--- 92,96 ----
    destroyWidget m = Lib.destroyIndicator (hindicator m)
    destroy         = newStdEvent hindicator Lib.getIndicatorDestroyHandler Lib.setIndicatorDestroyHandler Lib.setIndicatorDestroyDefHandler
+ 
+ instance Positioned Indicator where
+   pos = readAttr "pos" (Lib.getIndicatorPos . hindicator)