summaryrefslogtreecommitdiffstats
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
commitb1b682719ed654b1dd86a7f87986d7cc173078fc (patch)
tree2d5cc7b99f6913f220263a7d38c6538aac404eee /Main.hs
parent242b06df642f135f1b4e849d49a18099cf71d0e9 (diff)
downloadmetatile-b1b682719ed654b1dd86a7f87986d7cc173078fc.tar
metatile-b1b682719ed654b1dd86a7f87986d7cc173078fc.zip
comment only
darcs-hash:20070611020249-b9aa7-d00e960a3f26a54acdc7a869ad88ee9d437a470b
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.