From 968262d935f1cce71b984e54c8176f067f4604ef Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Sun, 30 Nov 2014 00:19:57 +0100
Subject: [PATCH] GUI: fix widget hiding

---
 GUI/Gtk.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/GUI/Gtk.hs b/GUI/Gtk.hs
index 4cc10c5..9b4bbfb 100644
--- 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)