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

GTK: readd copy mode dialog

Browse Source
This commit is contained in:
Julian Ospald 2015-12-22 19:50:07 +01:00
parent aa1401d874
commit 9288be7ff7
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -146,8 +146,9 @@ copyFinal mygui myview = withErrorDialog $ do
dest <- goUp mcdir dest <- goUp mcdir
let cmsg = "Really copy \"" ++ fullPath s let cmsg = "Really copy \"" ++ fullPath s
++ "\"" ++ " to \"" ++ fullPath dest ++ "\"?" ++ "\"" ++ " to \"" ++ fullPath dest ++ "\"?"
cm <- showCopyModeChooserDialog
withConfirmationDialog cmsg withConfirmationDialog cmsg
(runFileOp (FCopy . CC s dest $ Strict) (runFileOp (FCopy . CC s dest $ cm)
>> refreshTreeView mygui myview Nothing) >> refreshTreeView mygui myview Nothing)
return () return ()
_ -> return () _ -> return ()