hasufell
/
hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

GTK: rename fileChooserDialog and add title parameter

This commit is contained in:
Julian Ospald 2015-12-25 23:17:22 +01:00
parent 71a2cb90be
commit 3edd3c8a19
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/GUI/Gtk/Callbacks.hs
View File

@ -267,8 +267,8 @@ upDir mygui myview = withErrorDialog $ do
-- |Go up one directory and visualize it in the treeView. -- |Go up one directory and visualize it in the treeView.
newFile :: MyGUI -> MyView -> IO () newFile :: MyGUI -> MyView -> IO ()
newFile mygui myview = withErrorDialog $ do newFile mygui myview = withErrorDialog $ do
cdir <- getCurrentDir myview cdir <- getCurrentDir myview
mfn <- fileChooserDialog mfn <- textInputDialog "Enter file name"
maybe (return ()) (\fn -> do maybe (return ()) (\fn -> do
createFile cdir fn createFile cdir fn
refreshTreeView' mygui myview cdir refreshTreeView' mygui myview cdir

8
src/GUI/Gtk/Dialogs.hs
View File

@ -161,16 +161,16 @@ withErrorDialog io = do
-- |Asks the user which directory copy mode he wants via dialog popup -- |Asks the user which directory copy mode he wants via dialog popup
-- and returns 'DirCopyMode'. -- and returns 'DirCopyMode'.
fileChooserDialog :: IO (Maybe String) textInputDialog :: String -> IO (Maybe String)
fileChooserDialog = do textInputDialog title = do
chooserDialog <- messageDialogNew Nothing chooserDialog <- messageDialogNew Nothing
[DialogDestroyWithParent] [DialogDestroyWithParent]
MessageQuestion MessageQuestion
ButtonsNone ButtonsNone
"Enter filename" title
entry <- entryNew entry <- entryNew
cbox <- dialogGetActionArea chooserDialog cbox <- dialogGetActionArea chooserDialog
dialogAddButton chooserDialog "Create" (ResponseUser 0) dialogAddButton chooserDialog "Ok" (ResponseUser 0)
dialogAddButton chooserDialog "Cancel" (ResponseUser 1) dialogAddButton chooserDialog "Cancel" (ResponseUser 1)
boxPackStart (castToBox cbox) entry PackNatural 5 boxPackStart (castToBox cbox) entry PackNatural 5
widgetShowAll chooserDialog widgetShowAll chooserDialog