hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

GUI: fix widget hiding

Browse Source
This commit is contained in:
hasufell 2014-11-30 00:19:57 +01:00
parent 3e4a148578
commit 968262d935
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
GUI/Gtk.hs
View File

@ -205,14 +205,17 @@ onAlgoBoxChange mygui = do
item <- comboBoxGetActive (algoBox mygui) item <- comboBoxGetActive (algoBox mygui)
if item == 4 if item == 4
then do then do
widgetHide (vbox10 mygui)
widgetShow (vbox7 mygui) widgetShow (vbox7 mygui)
widgetShow (treeWin mygui) widgetShow (treeWin mygui)
else else
if item == 5 if item == 5
then do then do
widgetHide (vbox7 mygui)
widgetShow (vbox10 mygui) widgetShow (vbox10 mygui)
widgetShow (treeWin mygui) widgetShow (treeWin mygui)
else do else do
widgetHide (vbox10 mygui)
widgetHide (vbox7 mygui) widgetHide (vbox7 mygui)
widgetHide (treeWin mygui) widgetHide (treeWin mygui)