aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Main.hsc
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2012-01-03 02:39:16 +0100
committerAdam Vogt <vogt.adam@gmail.com>2012-01-03 02:39:16 +0100
commit6fd5a380b46edd755118bfe385a99609c2b7c142 (patch)
tree8c88b56d941721fc63520c88caf6e617403b5735 /XMonad/Main.hsc
parent415f11d534bdcb3d380bb3148a17d691e542ba05 (diff)
downloadxmonad-6fd5a380b46edd755118bfe385a99609c2b7c142.tar.gz
xmonad-6fd5a380b46edd755118bfe385a99609c2b7c142.tar.xz
xmonad-6fd5a380b46edd755118bfe385a99609c2b7c142.zip
Add configuration option clickToFocus (issue 225)
Ignore-this: 78961f6256e1a1ee25c085e9056af758 To summarize this allows clicks which change the focus to also be passed on to that window. darcs-hash:20120103013916-1499c-1c29f13f0565f4812cf5787caefb6142882f25b5.gz
Diffstat (limited to '')
-rw-r--r--XMonad/Main.hsc7
1 files changed, 5 insertions, 2 deletions
diff --git a/XMonad/Main.hsc b/XMonad/Main.hsc
index bd2ec0a..c459f14 100644
--- a/XMonad/Main.hsc
+++ b/XMonad/Main.hsc
@@ -253,8 +253,11 @@ handle e@(ButtonEvent {ev_window = w,ev_event_type = t,ev_button = b })
m <- cleanMask $ ev_state e
mact <- asks (M.lookup (m, b) . buttonActions)
case mact of
- (Just act) | isr -> act $ ev_subwindow e
- _ -> focus w >> io (allowEvents dpy replayPointer currentTime)
+ Just act | isr -> act $ ev_subwindow e
+ _ -> do
+ focus w
+ ctf <- asks (clickJustFocuses . config)
+ unless ctf $ io (allowEvents dpy replayPointer currentTime)
broadcastMessage e -- Always send button events.
-- entered a normal window: focus it if focusFollowsMouse is set to