[htoolkit-cvs] port/src/Port StatusBar.hs,1.5,1.6

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

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv22477/port/src/Port

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


Index: StatusBar.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/StatusBar.hs,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** StatusBar.hs	16 Nov 2003 13:25:20 -0000	1.5
--- StatusBar.hs	22 Nov 2003 09:35:42 -0000	1.6
***************
*** 19,22 ****
--- 19,23 ----
  	  setStatusBarVisible,  getStatusBarVisible
  	, setStatusBarTitle,     getStatusBarTitle
+ 	, getStatusBarIndicatorsCount
  	, pushStatusBarContext, popStatusBarContext
  
***************
*** 25,28 ****
--- 26,30 ----
  	, destroyIndicator
  	, setIndicatorTitle, getIndicatorTitle
+ 	, getIndicatorPos
  	) where
  
***************
*** 46,49 ****
--- 48,53 ----
  foreign import ccall osGetStatusBarTitle :: IO CString
  
+ foreign import ccall "osGetStatusBarIndicatorsCount" getStatusBarIndicatorsCount :: IO Int
+ 
  -- | Push a new status message onto the status bar stack and display it.
  pushStatusBarContext :: String -> IO ()
***************
*** 73,74 ****
--- 77,80 ----
  setIndicatorTitle hwnd title = withCString title (osSetIndicatorTitle hwnd)
  foreign import ccall osSetIndicatorTitle :: IndicatorHandle -> CString -> IO ()
+ 
+ foreign import ccall "osGetIndicatorPos" getIndicatorPos :: IndicatorHandle -> IO Int