GTK: add refresh button

2015-12-25 23:24:43 +01:00
parent 3edd3c8a19
commit 61b2313320
4 changed files with 22 additions and 3 deletions
--- a/src/GUI/Gtk/Callbacks.hs
+++ b/src/GUI/Gtk/Callbacks.hs
@@ -111,6 +111,10 @@ setCallbacks mygui myview = do
    "v"       <- fmap glibToString eventKeyName
    liftIO $ operationFinal mygui myview

+  _ <- refreshView mygui `on` buttonActivated $ do
+       cdir <- liftIO $ getCurrentDir myview
+       refreshTreeView' mygui myview cdir
+
  -- menubar-file
  _ <- menubarFileQuit mygui `on` menuItemActivated $ mainQuit
  _ <- menubarFileOpen mygui `on` menuItemActivated $