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

GTK: rename setBindings to setCallbacks

Browse Source
This commit is contained in:
Julian Ospald 2015-12-17 17:48:35 +01:00
parent 826ec65a68
commit 8d9a6d7fb0
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/GUI/Gtk/Gui.hs
View File

@ -146,9 +146,9 @@ data MyView = MkMyView {
} }
-- |Set hotkeys. -- |Set callbacks, on hotkeys, events and stuff.
setBindings :: MyGUI -> MyView -> IO () setCallbacks :: MyGUI -> MyView -> IO ()
setBindings mygui myview = do setCallbacks mygui myview = do
_ <- rootWin mygui `on` keyPressEvent $ tryEvent $ do _ <- rootWin mygui `on` keyPressEvent $ tryEvent $ do
[Control] <- eventModifier [Control] <- eventModifier
"q" <- fmap glibToString eventKeyName "q" <- fmap glibToString eventKeyName
@ -513,7 +513,7 @@ startMainWindow = do
constructTreeView mygui myview constructTreeView mygui myview
-- set the bindings -- set the bindings
setBindings mygui myview setCallbacks mygui myview
-- add the treeview to the scroll container -- add the treeview to the scroll container
containerAdd scroll treeView containerAdd scroll treeView