[htoolkit-cvs] gio/src/Graphics/UI/GIO Process.hs,1.7,1.8

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

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29528/gio/src/Graphics/UI/GIO

Modified Files:
	Process.hs 
Log Message:
Comments


Index: Process.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Process.hs,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Process.hs	15 Nov 2003 10:34:14 -0000	1.7
--- Process.hs	8 May 2004 10:19:23 -0000	1.8
***************
*** 40,46 ****
    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
--- 40,54 ----
    destroy         = newEvent (const Lib.getProcessDestroyHandler) (const Lib.setProcessDestroyHandler) (const Lib.setProcessDestroyDefHandler)
  
! -- | Start the event loop. The event loop will continue until the 
! -- process is destroyed.
! start :: String            -- ^ Application title. Under Windows and Gnome this is
!                            -- the title of the main window.
!       -> String            -- ^ Application version. The version string usually
!                            -- consists two substrings, separated with space. The first 
!                            -- substring is the internal application name while the second
!                            -- is the version. If the first string is skipped then the
!                            -- internal name will be equal to the application title.
!                            -- The internal name can contain only letters
!                            -- and digits all other characters will be ignored.
        -> DocumentInterface -- ^ Document interface type for application
        -> [Prop Process]    -- ^ Properties
***************
*** 52,60 ****
         setCurrentDirectory curdir
  
! -- | Force the event loop to terminate.
  quit :: IO Bool
  quit = Lib.quit
  
! -- | Force the event loop to terminate.
  halt :: IO ()
  halt = Lib.halt
--- 60,70 ----
         setCurrentDirectory curdir
  
! -- | The 'quit' function sends 'dismiss' event to all opened windows and if after that all windows are closed
! -- then it will close the entire process. This function is the default handler for process\'s 'dismiss' event.
  quit :: IO Bool
  quit = Lib.quit
  
! -- | 'halt' exits the main event loop, closes any windows and menus, destroys all timers,
! -- unregisters all event handlers and terminates the process.
  halt :: IO ()
  halt = Lib.halt