summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-05-27 11:41:05 +0200
committerDon Stewart <dons@cse.unsw.edu.au>2007-05-27 11:41:05 +0200
commitc2926cad4f987d731a4043ee10f41bfa21404777 (patch)
treeb6c9dbfd59b93b447bb25a2519a5ff8b363d82df
parenteeac9aa8cfba70574ac264ba2b12a61f387c0f29 (diff)
downloadmetatile-c2926cad4f987d731a4043ee10f41bfa21404777.tar
metatile-c2926cad4f987d731a4043ee10f41bfa21404777.zip
raiseWindow when settings focus. The focused window should always be raised, I think
darcs-hash:20070527094105-9c5c1-8607589fd688646f38b62804c964f24f71f56b5c
-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)