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

Add algorithm combo box 

Currently a no-op.
This commit is contained in:
hasufell 2014-10-05 21:41:51 +02:00
parent 6c728324fd
commit d5b8eeeb49
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
2 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Gtk.hs
View File

@ -25,7 +25,8 @@ data MyGUI = MkMyGUI {
xu :: Entry,
yl :: Entry,
yu :: Entry,
aD :: AboutDialog
aD :: AboutDialog,
cB :: ComboBox
}
@ -51,8 +52,9 @@ makeMyGladeGUI = do
yl' <- xmlGetWidget xml castToEntry "ylD"
yu' <- xmlGetWidget xml castToEntry "yuD"
aD' <- xmlGetWidget xml castToAboutDialog "aboutdialog"
cB' <- xmlGetWidget xml castToComboBox "comboalgo"
return $ MkMyGUI win' dB' sB' qB' fB' da' hs' xl' xu' yl' yu' aD'
return $ MkMyGUI win' dB' sB' qB' fB' da' hs' xl' xu' yl' yu' aD' cB'
-- |Handle the whole GTK gui.
@ -74,6 +76,7 @@ makeGUI startFile = do
else do
_ <- fileChooserSetFilename (fB mygui) startFile
return ()
comboBoxSetActive (cB mygui) 0
-- callbacks
_ <- onDestroy (win mygui) mainQuit

14
gtk2.glade
View File

@ -378,7 +378,7 @@ Malte Flender &lt;malte.flender@fh-bielefeld.de&gt;</property>
</widget>
<widget class="GtkWindow" id="window1">
<property name="width_request">600</property>
<property name="height_request">700</property>
<property name="height_request">750</property>
<property name="can_focus">False</property>
<property name="type_hint">dialog</property>
<child>
@ -698,6 +698,18 @@ Malte Flender &lt;malte.flender@fh-bielefeld.de&gt;</property>
<property name="position">3</property>
</packing>
</child>
<child>
<widget class="GtkComboBox" id="comboalgo">
<property name="visible">True</property>
<property name="can_focus">False</property>
<property name="items" translatable="yes">Show points</property>
</widget>
<packing>
<property name="expand">False</property>
<property name="fill">False</property>
<property name="position">4</property>
</packing>
</child>
</widget>
</child>
</widget>