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

GUI: instantly redraw for enabling checkboxes and other stuff

This commit is contained in:
hasufell 2014-10-11 00:02:06 +02:00
parent b6aa9d9086
commit 869cbd0af3
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
GUI/Gtk.hs
View File

@ -117,6 +117,10 @@ makeGUI startFile = do
-- have to redraw for window overlapping and resizing on expose
_ <- onExpose (da mygui) (\_ -> onClickedDrawButton mygui >>=
(\_ -> return True))
_ <- on (cB mygui) changed (onClickedDrawButton mygui)
_ <- on (gC mygui) toggled (onClickedDrawButton mygui)
_ <- on (cC mygui) toggled (onClickedDrawButton mygui)
_ <- on (hs mygui) valueChanged (onClickedDrawButton mygui)
-- hotkeys
_ <- win mygui `on` keyPressEvent $ tryEvent $ do