[htoolkit-cvs] gio/src/Graphics/UI/GIO CommonDialogs.hs,1.1,1.2

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

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

Modified Files:
	CommonDialogs.hs 
Log Message:
The InputFileDialog, OutputFileDialog and SelectDirectory dialogs has extended functionality


Index: CommonDialogs.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/CommonDialogs.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** CommonDialogs.hs	26 Mar 2003 10:38:33 -0000	1.1
--- CommonDialogs.hs	26 Apr 2003 10:00:49 -0000	1.2
***************
*** 14,17 ****
--- 14,18 ----
              ( runDirectoryDialog
              , runInputFileDialog
+             , runInputFilesDialog
              , runOutputFileDialog
              , runFontDialog
***************
*** 27,40 ****
  --------------------------------------------------------------------}
  -- | Run a dialog to select an input file. Returns 'Nothing' when cancelled.
! runInputFileDialog :: IO (Maybe String)
  runInputFileDialog = Lib.runInputFileDialog
  
! -- | Run a dialog to select an output file. Takes both a prompt message and a 
! -- suggested filename as arguments. Returns 'Nothing' when cancelled.
! runOutputFileDialog :: String -> String -> IO (Maybe String)
  runOutputFileDialog = Lib.runOutputFileDialog
  
  -- | Runs a dialog to select a directory. Returns 'Nothing' when cancelled.
! runDirectoryDialog :: IO (Maybe String)
  runDirectoryDialog = Lib.runDirectoryDialog
    
--- 28,61 ----
  --------------------------------------------------------------------}
  -- | Run a dialog to select an input file. Returns 'Nothing' when cancelled.
! runInputFileDialog :: String                 -- ^ The dialog title
!                    -> [(String,[String])]    -- ^ Filter for acceptable file types. The filter is a
!                                              -- list of pairs where the first element of pair is a
!                                              -- filter name and the second element is a list of
!                                              -- wildcards (example [(\"Haskell script\", [\"*.hs\", \"*.lhs\"])])
!                    -> IO (Maybe FilePath)    -- ^ The full qualified path to the selected file
  runInputFileDialog = Lib.runInputFileDialog
  
! -- | Run a dialog to select an input file. Returns 'Nothing' when cancelled.
! runInputFilesDialog :: String                 -- ^ The dialog title
!                    -> [(String,[String])]    -- ^ Filter for acceptable file types. The filter is a
!                                              -- list of pairs where the first element of pair is a
!                                              -- filter name and the second element is a list of
!                                              -- wildcards (example [(\"Haskell script\", [\"*.hs\", \"*.lhs\"])])
!                    -> IO [FilePath]          -- ^ The list of full qualified paths for the selected files
! runInputFilesDialog = Lib.runInputFilesDialog
! 
! -- | Run a dialog to select an output file. Returns 'Nothing' when cancelled.
! runOutputFileDialog :: String                -- ^ The dialog title
!                     -> [(String,[String])]   -- ^ Filter for acceptable file types. The filter is a
!                                              -- list of pairs where the first element of pair is a
!                                              -- filter name and the second element is a list of
!                                              -- wildcards (example [(\"Haskell script\", [\"*.hs\", \"*.lhs\"])])
!                     -> FilePath              -- ^ The default file name
!                     -> IO (Maybe FilePath)   -- ^ The full qualified path to the selected file
  runOutputFileDialog = Lib.runOutputFileDialog
  
  -- | Runs a dialog to select a directory. Returns 'Nothing' when cancelled.
! runDirectoryDialog :: String                 -- ^ The dialog title
!                    -> IO (Maybe FilePath)    -- ^ The full qualified path to the selected directory
  runDirectoryDialog = Lib.runDirectoryDialog