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

darcs-hash:20070527094105-9c5c1-8607589fd688646f38b62804c964f24f71f56b5c
---
 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)
 
-- 
cgit v1.2.3