From 1fec2983bd8f809e16a48f9b33181025a899c742 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Fri, 3 Jun 2016 22:34:49 +0200
Subject: [PATCH] GTK: fix closing tabs via [Control]+w when tab was switched

---
 src/HSFM/GUI/Gtk/MyGUI.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/HSFM/GUI/Gtk/MyGUI.hs b/src/HSFM/GUI/Gtk/MyGUI.hs
index ae330ff..8a7c4f6 100644
--- a/src/HSFM/GUI/Gtk/MyGUI.hs
+++ b/src/HSFM/GUI/Gtk/MyGUI.hs
@@ -45,7 +45,6 @@ import Paths_hsfm
 -- |Set up the GUI. This only creates the permanent widgets.
 createMyGUI :: IO MyGUI
 createMyGUI = do
-
   let settings' = MkFMSettings False True 24
   settings <- newTVarIO settings'
   operationBuffer <- newTVarIO None
@@ -85,6 +84,10 @@ createMyGUI = do
   notebook          <- builderGetObject builder castToNotebook
                        "notebook"
 
+  -- this is required so that hotkeys work as expected, because
+  -- we then can connect to signals from `viewBox` more reliably
+  widgetSetCanFocus notebook False
+
   -- construct the gui object
   let menubar = MkMenuBar {..}
   let fprop = MkFilePropertyGrid {..}