GTK: implement home and up buttons wrt #40

2016-04-17 01:01:04 +02:00
parent c0bd5f3c37
commit e98fb577ed
4 changed files with 57 additions and 9 deletions
--- a/src/HSFM/GUI/Gtk/MyGUI.hs
+++ b/src/HSFM/GUI/Gtk/MyGUI.hs
@@ -99,6 +99,10 @@ createMyGUI = do
                       "rcFilePaste"
  rcFileDelete      <- builderGetObject builder castToImageMenuItem
                       "rcFileDelete"
+  upViewB           <- builderGetObject builder castToButton
+                       "upViewB"
+  homeViewB         <- builderGetObject builder castToButton
+                       "homeViewB"
  refreshViewB      <- builderGetObject builder castToButton
                       "refreshViewB"
  menubarViewTree   <- builderGetObject builder castToImageMenuItem