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

LIB/GTK: generalize DirCopyMode to CopyMode and improve user confirmation

Browse Source
This commit is contained in:
Julian Ospald
2015-12-28 03:04:02 +01:00
parent eae68cc0ea
commit e44997cd9d
3 changed files with 110 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -277,15 +277,14 @@ operationFinal mygui myview = withErrorDialog $ do
FMove (MP1 s) -> do
let cmsg = "Really move \"" ++ fullPath s
++ "\"" ++ " to \"" ++ fullPath cdir ++ "\"?"
withConfirmationDialog cmsg
$ void $ runFileOp (FMove . MC s $ cdir)
withConfirmationDialog cmsg . withCopyModeDialog
$ \cm -> void $ runFileOp (FMove . MC s cdir $ cm)
return ()
FCopy (CP1 s) -> do
let cmsg = "Really copy \"" ++ fullPath s
++ "\"" ++ " to \"" ++ fullPath cdir ++ "\"?"
cm <- showCopyModeChooserDialog
withConfirmationDialog cmsg
$ void $ runFileOp (FCopy . CC s cdir $ cm)
withConfirmationDialog cmsg . withCopyModeDialog
$ \cm -> void $ runFileOp (FCopy . CC s cdir $ cm)
return ()
_ -> return ()