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

GTK: Refresh treeview after deletion

Browse Source
This commit is contained in:
Julian Ospald 2015-12-17 16:57:03 +01:00
parent 4227921402
commit 41f47eea1e
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/GUI/Gtk/Gui.hs
View File

@ -217,12 +217,14 @@ onRow fo mygui myview = do
let fp = getFullPath dz let fp = getFullPath dz
cmsg = "Really delete directory \"" ++ fp ++ "\"?" cmsg = "Really delete directory \"" ++ fp ++ "\"?"
withConfirmationDialog cmsg withConfirmationDialog cmsg
$ withErrorDialog $ deleteDir fp $ withErrorDialog (deleteDir fp
>> refreshTreeView mygui myview Nothing)
dz@(File {}, _) -> do dz@(File {}, _) -> do
let fp = getFullPath dz let fp = getFullPath dz
cmsg = "Really delete file \"" ++ fp ++ "\"?" cmsg = "Really delete file \"" ++ fp ++ "\"?"
withConfirmationDialog cmsg withConfirmationDialog cmsg
$ withErrorDialog $ deleteFile fp $ withErrorDialog (deleteFile fp
>> refreshTreeView mygui myview Nothing)
-- |Go up one directory and visualize it in the treeView. -- |Go up one directory and visualize it in the treeView.