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

GUI: use infix instead of ap

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

35
GUI/Gtk.hs
View File

@ -2,6 +2,7 @@
module GUI.Gtk (makeGUI) where module GUI.Gtk (makeGUI) where
import Control.Applicative
import Control.Monad import Control.Monad
import Control.Monad.IO.Class import Control.Monad.IO.Class
import Diagrams.Prelude import Diagrams.Prelude
@ -66,23 +67,23 @@ makeMyGladeGUI = do
-- load glade file -- load glade file
Just xml <- xmlNew gladeFile Just xml <- xmlNew gladeFile
return MkMyGUI `ap` MkMyGUI
xmlGetWidget xml castToWindow "window1" `ap` <$> xmlGetWidget xml castToWindow "window1"
xmlGetWidget xml castToButton "drawButton" `ap` <*> xmlGetWidget xml castToButton "drawButton"
xmlGetWidget xml castToButton "saveButton" `ap` <*> xmlGetWidget xml castToButton "saveButton"
xmlGetWidget xml castToButton "quitButton" `ap` <*> xmlGetWidget xml castToButton "quitButton"
xmlGetWidget xml castToFileChooserButton <*> xmlGetWidget xml castToFileChooserButton
"filechooserButton" `ap` "filechooserButton"
xmlGetWidget xml castToDrawingArea "drawingarea" `ap` <*> xmlGetWidget xml castToDrawingArea "drawingarea"
xmlGetWidget xml castToHScale "hscale" `ap` <*> xmlGetWidget xml castToHScale "hscale"
xmlGetWidget xml castToEntry "xlD" `ap` <*> xmlGetWidget xml castToEntry "xlD"
xmlGetWidget xml castToEntry "xuD" `ap` <*> xmlGetWidget xml castToEntry "xuD"
xmlGetWidget xml castToEntry "ylD" `ap` <*> xmlGetWidget xml castToEntry "ylD"
xmlGetWidget xml castToEntry "yuD" `ap` <*> xmlGetWidget xml castToEntry "yuD"
xmlGetWidget xml castToAboutDialog "aboutdialog" `ap` <*> xmlGetWidget xml castToAboutDialog "aboutdialog"
xmlGetWidget xml castToComboBox "comboalgo" `ap` <*> xmlGetWidget xml castToComboBox "comboalgo"
xmlGetWidget xml castToCheckButton "gridcheckbutton" `ap` <*> xmlGetWidget xml castToCheckButton "gridcheckbutton"
xmlGetWidget xml castToCheckButton "coordcheckbutton" <*> xmlGetWidget xml castToCheckButton "coordcheckbutton"
-- |Main entry point for the GTK GUI routines. -- |Main entry point for the GTK GUI routines.