|
From: <kr_...@us...> - 2003-03-30 18:49:10
|
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
|