[htoolkit-cvs] gio/src/Graphics/UI/GIO StatusBar.hs,1.1,1.2

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

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

Modified Files:
	StatusBar.hs 
Log Message:
A litle bit simplified push/pop API


Index: StatusBar.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/StatusBar.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** StatusBar.hs	15 Nov 2003 10:34:14 -0000	1.1
--- StatusBar.hs	16 Nov 2003 09:02:35 -0000	1.2
***************
*** 22,25 ****
--- 22,26 ----
  import Graphics.UI.GIO.Types
  import Graphics.UI.GIO.Attributes
+ import Control.Exception(bracket_)
  
  data StatusBar = StatusBar
***************
*** 33,48 ****
  instance Titled StatusBar where
    title = newAttr (\sb -> Lib.getStatusBarTitle) (\sb -> Lib.setStatusBarTitle)
-   
- pushStatusBarContext :: StatusBar -> IO ()
- pushStatusBarContext sb = Lib.pushStatusBarContext
  
  popStatusBarContext :: StatusBar -> IO ()
  popStatusBarContext sb = Lib.popStatusBarContext
  
  withStatus :: StatusBar -> String -> IO a -> IO a
! withStatus sb txt action = do
! 	pushStatusBarContext sb
! 	set sb [title =: txt]
! 	r <- action
! 	popStatusBarContext sb
! 	return r
--- 34,51 ----
  instance Titled StatusBar where
    title = newAttr (\sb -> Lib.getStatusBarTitle) (\sb -> Lib.setStatusBarTitle)
  
+ -- | Push a new status message onto the status bar stack and display it.
+ pushStatusBarContext :: StatusBar -> String -> IO ()
+ pushStatusBarContext sb title = Lib.pushStatusBarContext title
+ 
+ -- | Remove current status message, and display previous status
+ -- message, if any.  It is fine to call this with an empty stack.
  popStatusBarContext :: StatusBar -> IO ()
  popStatusBarContext sb = Lib.popStatusBarContext
  
  withStatus :: StatusBar -> String -> IO a -> IO a
! withStatus sb title action =
! 	bracket_
! 		(pushStatusBarContext sb title)
! 		(popStatusBarContext sb)
! 		action