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
|
