[htoolkit-cvs] gio/src/Graphics/UI/GIO CommonDialogs.hs,1.3,1.4

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

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

Modified Files:
	CommonDialogs.hs 
Log Message:
added AboutDialog (still only Linux)


Index: CommonDialogs.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/CommonDialogs.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** CommonDialogs.hs	26 Apr 2003 20:56:34 -0000	1.3
--- CommonDialogs.hs	2 May 2003 06:35:30 -0000	1.4
***************
*** 18,21 ****
--- 18,22 ----
              , runFontDialog
              , runColorDialog
+             , runAboutDialog
              ) where
  
***************
*** 37,41 ****
                     -> Maybe Window           -- ^ The owner window
                     -> IO (Maybe FilePath)    -- ^ The full qualified path to the selected file
! runInputFileDialog title filter mb_parent = Lib.runInputFileDialog title filter (getWHandle mb_parent)
  
  -- | Run a dialog to select an input file. Returns 'Nothing' when cancelled.
--- 38,42 ----
                     -> Maybe Window           -- ^ The owner window
                     -> IO (Maybe FilePath)    -- ^ The full qualified path to the selected file
! runInputFileDialog title filter mb_owner = Lib.runInputFileDialog title filter (getWHandle mb_owner)
  
  -- | Run a dialog to select an input file. Returns 'Nothing' when cancelled.
***************
*** 47,51 ****
                     -> Maybe Window           -- ^ The owner window
                     -> IO [FilePath]          -- ^ The list of full qualified paths for the selected files
! runInputFilesDialog title filter mb_parent = Lib.runInputFilesDialog title filter (getWHandle mb_parent)
  
  -- | Run a dialog to select an output file. Returns 'Nothing' when cancelled.
--- 48,52 ----
                     -> Maybe Window           -- ^ The owner window
                     -> IO [FilePath]          -- ^ The list of full qualified paths for the selected files
! runInputFilesDialog title filter mb_owner = Lib.runInputFilesDialog title filter (getWHandle mb_owner)
  
  -- | Run a dialog to select an output file. Returns 'Nothing' when cancelled.
***************
*** 58,62 ****
                      -> Maybe Window           -- ^ The owner window
                      -> IO (Maybe FilePath)   -- ^ The full qualified path to the selected file
! runOutputFileDialog title filter fname mb_parent = Lib.runOutputFileDialog title filter fname (getWHandle mb_parent)
  
  -- | Runs a dialog to select a directory. Returns 'Nothing' when cancelled.
--- 59,63 ----
                      -> Maybe Window           -- ^ The owner window
                      -> IO (Maybe FilePath)   -- ^ The full qualified path to the selected file
! runOutputFileDialog title filter fname mb_owner = Lib.runOutputFileDialog title filter fname (getWHandle mb_owner)
  
  -- | Runs a dialog to select a directory. Returns 'Nothing' when cancelled.
***************
*** 64,79 ****
                     -> Maybe Window           -- ^ The owner window
                     -> IO (Maybe FilePath)    -- ^ The full qualified path to the selected directory
! runDirectoryDialog title mb_parent = Lib.runDirectoryDialog title (getWHandle mb_parent)
    
  -- | Run a dialog to select a font. Returns 'Nothing' when cancelled.
  runFontDialog :: Maybe Window           -- ^ The owner window
                -> IO (Maybe FontDef)
! runFontDialog mb_parent = Lib.runFontDialog (getWHandle mb_parent)
  
  -- | Run a dialog to select a color. Returns 'Nothing' when cancelled.
  runColorDialog :: Maybe Window           -- ^ The owner window
                 -> IO (Maybe Color)
! runColorDialog mb_parent = Lib.runColorDialog (getWHandle mb_parent)
  
  
  getWHandle = maybe Lib.nullHandle hwindow
--- 65,92 ----
                     -> Maybe Window           -- ^ The owner window
                     -> IO (Maybe FilePath)    -- ^ The full qualified path to the selected directory
! runDirectoryDialog title mb_owner = Lib.runDirectoryDialog title (getWHandle mb_owner)
    
  -- | Run a dialog to select a font. Returns 'Nothing' when cancelled.
  runFontDialog :: Maybe Window           -- ^ The owner window
                -> IO (Maybe FontDef)
! runFontDialog mb_owner = Lib.runFontDialog (getWHandle mb_owner)
  
  -- | Run a dialog to select a color. Returns 'Nothing' when cancelled.
  runColorDialog :: Maybe Window           -- ^ The owner window
                 -> IO (Maybe Color)
! runColorDialog mb_owner = Lib.runColorDialog (getWHandle mb_owner)
  
+ runAboutDialog :: String       -- ^ application name
+                -> String       -- ^ application version
+ 	       -> String       -- ^ copyright
+ 	       -> String       -- ^ comments
+ 	       -> [String]     -- ^ authors
+ 	       -> [String]     -- ^ documenters
+ 	       -> String       -- ^ translator credits
+ 	       -> Bitmap       -- ^ logo
+ 	       -> Maybe Window -- ^ The owner window
+ 	       -> IO ()
+ runAboutDialog appName appVersion copyright comments authors documenters tcredits logo mb_owner =
+   Lib.runAboutDialog appName appVersion copyright comments authors documenters tcredits logo (getWHandle mb_owner)
  
  getWHandle = maybe Lib.nullHandle hwindow