aboutsummaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
authorJason Creighton <jcreigh@gmail.com>2007-06-11 04:02:49 +0200
committerJason Creighton <jcreigh@gmail.com>2007-06-11 04:02:49 +0200
commit520100cadf4693805c099b0afe2c7a783722d2df (patch)
tree2d5cc7b99f6913f220263a7d38c6538aac404eee /Main.hs
parent041a118172cb6af5a6d93961aabe8a7f0d31898e (diff)
downloadxmonad-520100cadf4693805c099b0afe2c7a783722d2df.tar.gz
xmonad-520100cadf4693805c099b0afe2c7a783722d2df.tar.xz
xmonad-520100cadf4693805c099b0afe2c7a783722d2df.zip
comment only
darcs-hash:20070611020249-b9aa7-d00e960a3f26a54acdc7a869ad88ee9d437a470b.gz
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Main.hs b/Main.hs
index 8a475cb..ddcd79e 100644
--- a/Main.hs
+++ b/Main.hs
@@ -181,11 +181,11 @@ handle e@(MappingNotifyEvent {ev_window = w}) = do
-- click on an unfocused window, makes it focused on this workspace
handle e@(ButtonEvent {ev_window = w,ev_event_type = t,ev_button = b })
| t == buttonPress = do
+ -- If it's the root window, then it's something we
+ -- grabbed in grabButtons. Otherwise, it's click-to-focus.
isr <- isRoot w
if isr then whenJust (M.lookup (cleanMask (ev_state e), b) mouseBindings) ($ ev_subwindow e)
else focus w
- -- If it's the root window, then it's something we
- -- grabbed in grabButtons. Otherwise, it's click-to-focus.
sendMessage e -- Always send button events.
-- entered a normal window, makes this focused.