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
|
