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

GUI: make the MkMyGUI call less ugly

Browse Source
This commit is contained in:
hasufell 2014-10-17 01:06:24 +02:00
parent a31e1ff578
commit 2baeea4d4b
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
GUI/Gtk.hs
View File

@ -2,6 +2,7 @@
module GUI.Gtk (makeGUI) where module GUI.Gtk (makeGUI) where
import Control.Monad
import Control.Monad.IO.Class import Control.Monad.IO.Class
import Diagrams.Prelude import Diagrams.Prelude
import Diagrams.Backend.Cairo import Diagrams.Backend.Cairo
@ -64,25 +65,24 @@ makeMyGladeGUI :: IO MyGUI
makeMyGladeGUI = do makeMyGladeGUI = do
-- load glade file -- load glade file
Just xml <- xmlNew gladeFile Just xml <- xmlNew gladeFile
win' <- xmlGetWidget xml castToWindow "window1"
dB' <- xmlGetWidget xml castToButton "drawButton"
sB' <- xmlGetWidget xml castToButton "saveButton"
qB' <- xmlGetWidget xml castToButton "quitButton"
fB' <- xmlGetWidget xml castToFileChooserButton
"filechooserButton"
da' <- xmlGetWidget xml castToDrawingArea "drawingarea"
hs' <- xmlGetWidget xml castToHScale "hscale"
xl' <- xmlGetWidget xml castToEntry "xlD"
xu' <- xmlGetWidget xml castToEntry "xuD"
yl' <- xmlGetWidget xml castToEntry "ylD"
yu' <- xmlGetWidget xml castToEntry "yuD"
aD' <- xmlGetWidget xml castToAboutDialog "aboutdialog"
cB' <- xmlGetWidget xml castToComboBox "comboalgo"
gC' <- xmlGetWidget xml castToCheckButton "gridcheckbutton"
cC' <- xmlGetWidget xml castToCheckButton "coordcheckbutton"
return $ MkMyGUI win' dB' sB' qB' fB' da' hs' return MkMyGUI `ap`
xl' xu' yl' yu' aD' cB' gC' cC' xmlGetWidget xml castToWindow "window1" `ap`
xmlGetWidget xml castToButton "drawButton" `ap`
xmlGetWidget xml castToButton "saveButton" `ap`
xmlGetWidget xml castToButton "quitButton" `ap`
xmlGetWidget xml castToFileChooserButton
"filechooserButton" `ap`
xmlGetWidget xml castToDrawingArea "drawingarea" `ap`
xmlGetWidget xml castToHScale "hscale" `ap`
xmlGetWidget xml castToEntry "xlD" `ap`
xmlGetWidget xml castToEntry "xuD" `ap`
xmlGetWidget xml castToEntry "ylD" `ap`
xmlGetWidget xml castToEntry "yuD" `ap`
xmlGetWidget xml castToAboutDialog "aboutdialog" `ap`
xmlGetWidget xml castToComboBox "comboalgo" `ap`
xmlGetWidget xml castToCheckButton "gridcheckbutton" `ap`
xmlGetWidget xml castToCheckButton "coordcheckbutton"
-- |Main entry point for the GTK GUI routines. -- |Main entry point for the GTK GUI routines.