-------------------------------------------------------------------------------
--- $Id: FileDialog.hs#1 2009/03/20 13:27:50 REDMOND\\satnams $
--- $Source: //depot/satnams/haskell/ThreadScope/FileDialog.hs $
-------------------------------------------------------------------------------

module FileDialog
where

import Graphics.UI.Gtk

-------------------------------------------------------------------------------

openFileDialog :: Window -> IO (Maybe String)
openFileDialog parentWindow
  = do dialog <- fileChooserDialogNew
                   (Just "Open Profile... ")
                   (Just parentWindow)
	           FileChooserActionOpen
	           [("gtk-cancel", ResponseCancel)
	           ,("gtk-open", ResponseAccept)]
       widgetShow dialog
       response <- dialogRun dialog
       widgetHide dialog
       case response of
         ResponseAccept -> fileChooserGetFilename dialog
         _ -> return Nothing

-------------------------------------------------------------------------------