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

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

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

Modified Files:
	GIO.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: GIO.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO.hs,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** GIO.hs	26 Mar 2003 10:38:33 -0000	1.8
--- GIO.hs	30 Mar 2003 18:49:07 -0000	1.9
***************
*** 1,3 ****
- {-# OPTIONS -fglasgow-exts #-}
  -----------------------------------------------------------------------------------------
  {-| Module      :  GIO
--- 1,2 ----
***************
*** 10,15 ****
  
  The /main/ interface to the GIO library. Reexports 
! functionality from other modules and provides the 
! 'start' and 'quit' functions.
  -}
  -------------------------------------------------------------------------------
--- 9,13 ----
  
  The /main/ interface to the GIO library. Reexports 
! functionality from other modules.
  -}
  -------------------------------------------------------------------------------
***************
*** 29,37 ****
             , module Graphics.UI.GIO.Layout
             , module Graphics.UI.GIO.Controls
!            , start, quit
             ) where
  
- import System.Directory
- import qualified Graphics.UI.Port as Lib
  import Graphics.UI.GIO.Types
  import Graphics.UI.GIO.Font
--- 27,33 ----
             , module Graphics.UI.GIO.Layout
             , module Graphics.UI.GIO.Controls
!            , module Graphics.UI.GIO.Process
             ) where
  
  import Graphics.UI.GIO.Types
  import Graphics.UI.GIO.Font
***************
*** 47,70 ****
  import Graphics.UI.GIO.Layout
  import Graphics.UI.GIO.Controls
! 
! data Process
! 
! instance Deadly Process where
!   dismiss   = newEvent (const Lib.getProcessDismissHandler) (const Lib.setProcessDismissHandler) (const Lib.setProcessDismissDefHandler)
!   destroy   = newEvent (const Lib.getProcessDestroyHandler) (const Lib.setProcessDestroyHandler) (const Lib.setProcessDestroyDefHandler)
! 
! -- | Start the event loop. 'quit' is automatically called all windows are closed.
! start :: String -> DocumentInterface -> [Prop Process] -> IO a -> IO ()
! start title di props io
!   = do curdir <- getCurrentDirectory
!        Lib.start title di action
!        setCurrentDirectory curdir
!        where
!           action = do
!              mapM_ (set1 undefined) props
!              io `catch` \err -> do{ quit; ioError err }
! 
! -- | Force the event loop to terminate.
! quit :: IO ()
! quit
!   = Lib.quit
\ No newline at end of file
--- 43,45 ----
  import Graphics.UI.GIO.Layout
  import Graphics.UI.GIO.Controls
! import Graphics.UI.GIO.Process
\ No newline at end of file