[htoolkit-cvs] port/src Port.hs,1.13,1.14

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

Update of /cvsroot/htoolkit/port/src
In directory sc8-pr-cvs1:/tmp/cvs-serv19641/port/src

Modified Files:
	Port.hs 
Log Message:
The process related features are extracted into newly created module "Process". Added new process attribute "title" instead of title as parameter.


Index: Port.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port.hs,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Port.hs	26 Mar 2003 08:45:51 -0000	1.13
--- Port.hs	30 Mar 2003 18:49:07 -0000	1.14
***************
*** 1,3 ****
- {-# OPTIONS -fglasgow-exts -#include Types.h #-}
  -----------------------------------------------------------------------------------------
  {-| Module      :  Port
--- 1,2 ----
***************
*** 10,14 ****
  
      The /main/ interface of "Port". Re-exports functionality from
!     other modules and exports the 'start' function.
  -}
  -----------------------------------------------------------------------------------------
--- 9,13 ----
  
      The /main/ interface of "Port". Re-exports functionality from
!     other modules.
  -}
  -----------------------------------------------------------------------------------------
***************
*** 38,43 ****
              , module Graphics.UI.Port.Types    
  
!             -- * The main event loop
!             , start, quit
              ) where
  
--- 37,42 ----
              , module Graphics.UI.Port.Types    
  
!             -- * Process
!             , module Graphics.UI.Port.Process
              ) where
  
***************
*** 58,61 ****
--- 57,62 ----
  import Graphics.UI.Port.Timer
  
+ import Graphics.UI.Port.Process
+ 
  import Graphics.UI.Port.Types hiding 
              ( CColor, fromCColor, toCColor   
***************
*** 75,103 ****
              , CBool, fromCBool, toCBool
              )
- 
- import Foreign.C
- import System.Mem( performGC )
- import Control.Monad(when)
- 
- -- | Start the event loop. Runs until 'quit' is called.
- start :: String -> DocumentInterface -> IO a -> IO a
- start appName di io = do
- 	withCString appName (\s -> osInit s (toCDocumentInterface di))
- 	setProcessDismissHandler quit
- 	r <- io
- 	osStart
- 	return r
- foreign import ccall "osInit"  osInit  :: CString -> CInt -> IO ()
- foreign import ccall "osStart" osStart :: IO ()
- 
- -- | '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 ()
- quit = do
- 	r <- dismissAllWindows
- 	when r $ do
- 		destroyAllTimers
- 		osQuit
- 		performGC                -- to release any foreign objects
- foreign import ccall osQuit :: IO ()
\ No newline at end of file
--- 76,77 ----