GTK: add about dialog

2015-12-24 17:44:55 +01:00
parent b657756e37
commit f64f2a975c
3 changed files with 27 additions and 0 deletions
--- a/src/GUI/Gtk/Callbacks.hs
+++ b/src/GUI/Gtk/Callbacks.hs
@@ -110,6 +110,10 @@ setCallbacks mygui myview = do
  _ <- menubarEditCut mygui `on` menuItemActivated $
    liftIO $ withRow mygui myview moveInit

+  -- menubar-help
+  _ <- menubarHelpAbout mygui `on` menuItemActivated $
+    liftIO showAboutDialog
+
  -- righ-click
  _ <- treeView mygui `on` buttonPressEvent $ do
    eb <- eventButton