Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv10410/src/Port
Modified Files:
StatusBar.hs
Log Message:
A litle bit simplified push/pop API
Index: StatusBar.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/StatusBar.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** StatusBar.hs 15 Nov 2003 13:33:10 -0000 1.3
--- StatusBar.hs 16 Nov 2003 09:01:58 -0000 1.4
***************
*** 28,41 ****
foreign import ccall "osGetStatusBarVisible" getStatusBarVisible :: IO Bool
! -- | Change the title of the status bar.
setStatusBarTitle :: String -> IO ()
setStatusBarTitle title = withCString title osSetStatusBarTitle
foreign import ccall osSetStatusBarTitle :: CString -> IO ()
! -- | Returns the title of the status bar.
getStatusBarTitle :: IO String
getStatusBarTitle = resultCString osGetStatusBarTitle
foreign import ccall osGetStatusBarTitle :: IO CString
! foreign import ccall "osPushStatusBarContext" pushStatusBarContext :: IO ()
foreign import ccall "osPopStatusBarContext" popStatusBarContext :: IO ()
--- 28,48 ----
foreign import ccall "osGetStatusBarVisible" getStatusBarVisible :: IO Bool
! -- | Sets the status title without changing widget state; next call to
! -- 'setStatusBarTitle' or 'pushStatusBarContext' will destroy this permanently.
setStatusBarTitle :: String -> IO ()
setStatusBarTitle title = withCString title osSetStatusBarTitle
foreign import ccall osSetStatusBarTitle :: CString -> IO ()
! -- | Returns the current title of the status bar.
getStatusBarTitle :: IO String
getStatusBarTitle = resultCString osGetStatusBarTitle
foreign import ccall osGetStatusBarTitle :: IO CString
! -- | Push a new status message onto the status bar stack and display it.
! pushStatusBarContext :: String -> IO ()
! pushStatusBarContext title = withCString title osPushStatusBarContext
! foreign import ccall osPushStatusBarContext :: CString -> IO ()
!
! -- | Remove current status message, and display previous status
! -- message, if any. It is fine to call this with an empty stack.
foreign import ccall "osPopStatusBarContext" popStatusBarContext :: IO ()
|
