From 3bb48432f5ef32c797af466c4af2e851a1b6d5d3 Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Sat, 2 Jun 2007 07:26:05 +0200
Subject: only grab button{1,2,3} for click-to-focus (scrollwheel shouldn't
 focus)

darcs-hash:20070602052605-b9aa7-a3aa510c7d439b3169757f644c92107250d8db94
---
 Operations.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Operations.hs')

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
 
 -- ---------------------------------------------------------------------
-- 
cgit v1.2.3