[htoolkit-cvs] gio/src/Graphics/UI/GIO Process.hs,1.2,1.3

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

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

Modified Files:
	Process.hs 
Log Message:
Added proper initialization for libgnome. Unfortunately the initialization requires that the application name should be constant during program execution. That means that the modified 'start' function should have two additional arguments: the application name and the application version (the latest is also required from libgnome for proper initialization).


Index: Process.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Process.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Process.hs	14 Apr 2003 17:57:32 -0000	1.2
--- Process.hs	1 May 2003 19:35:37 -0000	1.3
***************
*** 37,49 ****
    destroyWidget p = halt
    destroy         = newEvent (const Lib.getProcessDestroyHandler) (const Lib.setProcessDestroyHandler) (const Lib.setProcessDestroyDefHandler)
-   
- instance Titled Process where
-   title = newAttr (const Lib.getProcessTitle) (const Lib.setProcessTitle)
  
  -- | Start the event loop.
! start :: DocumentInterface -> [Prop Process] -> IO a -> IO ()
! start di props io
    = do curdir <- getCurrentDirectory
!        Lib.start di ((set pc props >> io) `catch` \err -> quit >> ioError err)
         setCurrentDirectory curdir
  
--- 37,51 ----
    destroyWidget p = halt
    destroy         = newEvent (const Lib.getProcessDestroyHandler) (const Lib.setProcessDestroyHandler) (const Lib.setProcessDestroyDefHandler)
  
  -- | Start the event loop.
! start :: String            -- ^ Application name
!       -> String            -- ^ Application version
!       -> DocumentInterface -- ^ Document interface type for application
!       -> [Prop Process]    -- ^ Properties
!       -> IO a              -- ^ Startup action
!       -> IO ()
! start appName appVersion di props io
    = do curdir <- getCurrentDirectory
!        Lib.start appName appVersion di ((set pc props >> io) `catch` \err -> quit >> ioError err)
         setCurrentDirectory curdir