aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorDaniel Schoepe <daniel.schoepe@gmail.com>2010-01-13 21:40:17 +0100
committerDaniel Schoepe <daniel.schoepe@gmail.com>2010-01-13 21:40:17 +0100
commit060f2a6585de8754fedc23b6279197680e67199e (patch)
tree856d9d04d93a199605e41640d29c70597b385424 /XMonad
parent39f9d5a9b446ad907063a830ee140d1c08c3306b (diff)
downloadxmonad-060f2a6585de8754fedc23b6279197680e67199e.tar.gz
xmonad-060f2a6585de8754fedc23b6279197680e67199e.tar.xz
xmonad-060f2a6585de8754fedc23b6279197680e67199e.zip
Broadcast PropertyChange events (needed for layouts with decoration)
Ignore-this: c8315f438fed66b12282c9bfe70a4d0b darcs-hash:20100113204017-7f603-729f7e7ef83461c0bdd2e45cdd4a07724af7f8a2.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Main.hsc5
1 files changed, 3 insertions, 2 deletions
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"