summaryrefslogtreecommitdiffstats
path: root/Operations.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Operations.hs')
-rw-r--r--Operations.hs3
1 files changed, 2 insertions, 1 deletions
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)