From 242b06df642f135f1b4e849d49a18099cf71d0e9 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Sun, 10 Jun 2007 17:38:36 +0200
Subject: a few modifications to event-sending to make Tabbed layout work.

darcs-hash:20070610153836-72aca-75025ca798e1b8c2c5d9f95257aef2bca0803749
---
 Main.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index c17e741..8a475cb 100644
--- a/Main.hs
+++ b/Main.hs
@@ -186,6 +186,7 @@ handle e@(ButtonEvent {ev_window = w,ev_event_type = t,ev_button = b })
            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.
 handle e@(CrossingEvent {ev_window = w, ev_event_type = t})
@@ -225,5 +226,3 @@ handle e@(ConfigureRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do
 handle (ConfigureEvent {ev_window = w}) = whenX (isRoot w) rescreen
 
 handle e = sendMessage e -- trace (eventName e) -- ignoring
-
-instance Message Event
-- 
cgit v1.2.3