diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-05-27 11:41:05 +0200 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-05-27 11:41:05 +0200 |
commit | c2926cad4f987d731a4043ee10f41bfa21404777 (patch) | |
tree | b6c9dbfd59b93b447bb25a2519a5ff8b363d82df | |
parent | eeac9aa8cfba70574ac264ba2b12a61f387c0f29 (diff) | |
download | metatile-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.hs | 3 |
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) |