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
|
