[htoolkit-cvs] gio/src/Graphics/UI GIO.hs,1.5,1.6

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

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

Modified Files:
	GIO.hs 
Log Message:
Add application title as argument for start


Index: GIO.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO.hs,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** GIO.hs	24 Mar 2003 17:19:50 -0000	1.5
--- GIO.hs	25 Mar 2003 23:27:40 -0000	1.6
***************
*** 1,8 ****
  -----------------------------------------------------------------------------------------
  {-| Module      :  GIO
!     Copyright   :  (c) Daan Leijen 2003
      License     :  BSD-style
  
!     Maintainer  :  da...@cs...
      Stability   :  provisional
      Portability :  portable
--- 1,8 ----
  -----------------------------------------------------------------------------------------
  {-| Module      :  GIO
!     Copyright   :  (c) Krasimir Angelov & Daan Leijen 2003
      License     :  BSD-style
  
!     Maintainer  :  ka2...@ya... da...@cs...
      Stability   :  provisional
      Portability :  portable
***************
*** 46,53 ****
  
  -- | Start the event loop. 'quit' is automatically called all windows are closed.
! start :: DocumentInterface -> IO a -> IO ()
! start di io
    = do curdir <- getCurrentDirectory
!        Lib.start di io `catch` \err -> do{ quit; ioError err }
         setCurrentDirectory curdir
  
--- 46,53 ----
  
  -- | Start the event loop. 'quit' is automatically called all windows are closed.
! start :: String -> DocumentInterface -> IO a -> IO ()
! start title di io
    = do curdir <- getCurrentDirectory
!        Lib.start title di io `catch` \err -> do{ quit; ioError err }
         setCurrentDirectory curdir