From 0c35c5d34839e362ebfdccb02f4e1f10335f446d Mon Sep 17 00:00:00 2001
From: Daniel Schoepe <daniel.schoepe@gmail.com>
Date: Wed, 13 Jan 2010 21:40:17 +0100
Subject: Broadcast PropertyChange events (needed for layouts with decoration)

Ignore-this: c8315f438fed66b12282c9bfe70a4d0b

darcs-hash:20100113204017-7f603-729f7e7ef83461c0bdd2e45cdd4a07724af7f8a2
---
 XMonad/Main.hsc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'XMonad')

diff --git a/XMonad/Main.hsc b/XMonad/Main.hsc
index 7358a36..fd2bbdb 100644
--- a/XMonad/Main.hsc
+++ b/XMonad/Main.hsc
@@ -295,8 +295,9 @@ handle e@(ConfigureRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do
 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 = userCodeDef () =<< asks (logHook . config)
+handle event@(PropertyEvent { ev_event_type = t, ev_atom = a })
+    | t == propertyNotify && a == wM_NAME = asks (logHook . config) >>= userCodeDef () >>
+                                         broadcastMessage event
 
 handle e@ClientMessageEvent { ev_message_type = mt } = do
     a <- getAtom "XMONAD_RESTART"
-- 
cgit v1.2.3