From 8d9a6d7fb0baa53511a7225be7831f9c5629804e Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@hasufell.de>
Date: Thu, 17 Dec 2015 17:48:35 +0100
Subject: [PATCH] GTK: rename setBindings to setCallbacks

---
 src/GUI/Gtk/Gui.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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