[htoolkit-cvs] port/src/Port Process.hs,1.3,1.4

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

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29528/port/src/Port

Modified Files:
	Process.hs 
Log Message:
Comments


Index: Process.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Process.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Process.hs	17 Jul 2003 17:55:48 -0000	1.3
--- Process.hs	8 May 2004 10:19:22 -0000	1.4
***************
*** 22,28 ****
  import Control.Monad(when)
  
! -- | Start the event loop. Runs until 'quit' is called.
! start :: String             -- ^ Application name
!       -> String             -- ^ Application version
        -> DocumentInterface  -- ^ Document interface type for application
        -> IO a               -- ^ Startup action
--- 22,36 ----
  import Control.Monad(when)
  
! -- | Start the event loop. The event loop will continue until the 
! -- 'quit' function is called.
! 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
        -> IO a               -- ^ Startup action
***************
*** 37,43 ****
  	return r
  
! -- | 'quit' exits the main event loop, closes any windows and menus, destroys all timers
! -- and unregisters any event handlers. This function is automatically called when all
! -- windows are closed.
  quit :: IO Bool
  quit = do
--- 45,50 ----
  	return r
  
! -- | The 'quit' function sends @WindowDismiss@ 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 @ProcessDismiss@ event.
  quit :: IO Bool
  quit = do
***************
*** 49,55 ****
  	return r
  
! -- | 'quit' exits the main event loop, closes any windows and menus, destroys all timers
! -- and unregisters any event handlers. This function is automatically called when all
! -- windows are closed.
  halt :: IO ()
  halt = do
--- 56,61 ----
  	return r
  
! -- | 'halt' exits the main event loop, closes any windows and menus, destroys all timers
! -- and unregisters any event handlers.
  halt :: IO ()
  halt = do