[htoolkit-cvs] port/src/Port StatusBar.hs,1.3,1.4

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

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