From b1b682719ed654b1dd86a7f87986d7cc173078fc Mon Sep 17 00:00:00 2001 From: Jason Creighton Date: Mon, 11 Jun 2007 04:02:49 +0200 Subject: comment only darcs-hash:20070611020249-b9aa7-d00e960a3f26a54acdc7a869ad88ee9d437a470b --- Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Main.hs') 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. -- cgit v1.2.3