GUI: fix widget hiding

2014-11-30 00:19:57 +01:00
parent 3e4a148578
commit 968262d935
1 changed files with 3 additions and 0 deletions
--- a/GUI/Gtk.hs
+++ b/GUI/Gtk.hs
@@ -205,14 +205,17 @@ onAlgoBoxChange mygui = do
  item <- comboBoxGetActive (algoBox mygui)
  if item == 4
    then do
+      widgetHide (vbox10 mygui)
      widgetShow (vbox7 mygui)
      widgetShow (treeWin mygui)
    else
      if item == 5
        then do
+          widgetHide (vbox7 mygui)
          widgetShow (vbox10 mygui)
          widgetShow (treeWin mygui)
      else do
+        widgetHide (vbox10 mygui)
        widgetHide (vbox7 mygui)
        widgetHide (treeWin mygui)