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

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

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