From e72292fde142119b19812f4293d6ecb4a6e9732e Mon Sep 17 00:00:00 2001
From: Christian Thiemann <mail@christian-thiemann.de>
Date: Sat, 6 Oct 2007 19:54:58 +0200
Subject: Add event handler for PropertyNotifyEvent that calls logHook if
 window title changed

darcs-hash:20071006175458-8602e-3bc9eb53bde0d2269c9026aaad7fc6dca285067f
---
 Main.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index f8de8ea..427a30c 100644
--- a/Main.hs
+++ b/Main.hs
@@ -254,4 +254,8 @@ handle e@(ConfigureRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do
 -- configuration changes in the root may mean display settings have changed
 handle (ConfigureEvent {ev_window = w}) = whenX (isRoot w) rescreen
 
+-- property notify
+handle PropertyEvent { ev_event_type = t, ev_atom = a }
+    | t == propertyNotify && a == wM_NAME = do logHook
+
 handle e = broadcastMessage e -- trace (eventName e) -- ignoring
-- 
cgit v1.2.3