Update of /cvsroot/htoolkit/gio/src/Graphics/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv3332/src/Graphics/UI
Modified Files:
GIO.hs
Log Message:
Implement the document interface in the GIO
Index: GIO.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO.hs,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** GIO.hs 30 Jan 2003 23:58:20 -0000 1.4
--- GIO.hs 24 Mar 2003 17:19:50 -0000 1.5
***************
*** 46,54 ****
-- | Start the event loop. 'quit' is automatically called all windows are closed.
! start :: IO a -> IO ()
! start io
= do curdir <- getCurrentDirectory
! io
! Lib.start `catch` \err -> do{ quit; ioError err }
setCurrentDirectory curdir
--- 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
|
