diff options
| author | Jason Creighton <jcreigh@gmail.com> | 2007-06-02 07:26:05 +0200 |
|---|---|---|
| committer | Jason Creighton <jcreigh@gmail.com> | 2007-06-02 07:26:05 +0200 |
| commit | dbe21545ebaa68f8a4f5ff600285223d1fc5977c (patch) | |
| tree | 9f44ccc03b37d0b5bd17b981c6ceb20877256c82 /Operations.hs | |
| parent | a770fa33ff5f5208f1c1a5e5d6186bca8309b6f6 (diff) | |
| download | xmonad-dbe21545ebaa68f8a4f5ff600285223d1fc5977c.tar.gz xmonad-dbe21545ebaa68f8a4f5ff600285223d1fc5977c.tar.xz xmonad-dbe21545ebaa68f8a4f5ff600285223d1fc5977c.zip | |
only grab button{1,2,3} for click-to-focus (scrollwheel shouldn't focus)
darcs-hash:20070602052605-b9aa7-a3aa510c7d439b3169757f644c92107250d8db94.gz
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Operations.hs b/Operations.hs index 370f066..952e5ac 100644 --- a/Operations.hs +++ b/Operations.hs @@ -244,8 +244,9 @@ rescreen = do setButtonGrab :: Bool -> Window -> X () setButtonGrab grab w = withDisplay $ \d -> io $ if grab - then grabButton d anyButton anyModifier w False buttonPressMask - grabModeAsync grabModeSync none none + then flip mapM_ [button1, button2, button3] $ \b -> + grabButton d b anyModifier w False buttonPressMask + grabModeAsync grabModeSync none none else ungrabButton d anyButton anyModifier w -- --------------------------------------------------------------------- |