diff --git a/GUI/Gtk.hs b/GUI/Gtk.hs index d867f33..4cc10c5 100644 --- a/GUI/Gtk.hs +++ b/GUI/Gtk.hs @@ -207,16 +207,15 @@ onAlgoBoxChange mygui = do then do widgetShow (vbox7 mygui) widgetShow (treeWin mygui) - else do - widgetHide (vbox7 mygui) - widgetHide (treeWin mygui) - if item == 5 - then do - widgetShow (vbox10 mygui) - widgetShow (treeWin mygui) - else do - widgetHide (vbox10 mygui) - widgetHide (treeWin mygui) + else + if item == 5 + then do + widgetShow (vbox10 mygui) + widgetShow (treeWin mygui) + else do + widgetHide (vbox7 mygui) + widgetHide (treeWin mygui) + return ()