From e5e4b46ffafc6715a25dfb10e248552aed8c3781 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Sun, 27 May 2007 09:41:05 +0000
Subject: [PATCH] raiseWindow when settings focus. The focused window should
 always be raised, I think

---
 Operations.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Operations.hs b/Operations.hs
index 4c8c3e3..ab6490d 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -216,7 +216,8 @@ setFocusX w = withWorkspace $ \ws -> do
             setButtonGrab True otherw
             io $ setWindowBorder dpy otherw (color_pixel nbc)
 
-    withDisplay $ \d -> io $ setInputFocus d w revertToPointerRoot 0
+    io $ do setInputFocus dpy w revertToPointerRoot 0
+            raiseWindow dpy w
     setButtonGrab False w
     io $ setWindowBorder dpy w (color_pixel fbc)