raiseWindow when settings focus. The focused window should always be raised, I think

2025-08-01 12:41:53 -07:00 · 2007-05-27 09:41:05 +00:00
parent 7be0a2103d
commit e5e4b46ffa
1 changed files with 2 additions and 1 deletions
--- 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)