Broadcast button events to all layouts, fix for issue #111

This commit is contained in:
Spencer Janssen
2007-12-27 08:03:56 +00:00
parent 46f5e68cfa
commit 79f23d6cec

View File

@@ -189,7 +189,7 @@ handle e@(ButtonEvent {ev_window = w,ev_event_type = t,ev_button = b })
ba <- asks buttonActions
if isr then userCode $ whenJust (M.lookup (m, b) ba) ($ ev_subwindow e)
else focus w
sendMessage e -- Always send button events.
broadcastMessage e -- Always send button events.
-- entered a normal window, makes this focused.
handle e@(CrossingEvent {ev_window = w, ev_event_type = t})