diff options
| author | Daniel Schoepe <daniel.schoepe@gmail.com> | 2010-01-13 21:40:17 +0100 |
|---|---|---|
| committer | Daniel Schoepe <daniel.schoepe@gmail.com> | 2010-01-13 21:40:17 +0100 |
| commit | 0c35c5d34839e362ebfdccb02f4e1f10335f446d (patch) | |
| tree | 856d9d04d93a199605e41640d29c70597b385424 /XMonad | |
| parent | f166d6e947a048812b5d7198def7dc6f57288042 (diff) | |
| download | metatile-0c35c5d34839e362ebfdccb02f4e1f10335f446d.tar metatile-0c35c5d34839e362ebfdccb02f4e1f10335f446d.zip | |
Broadcast PropertyChange events (needed for layouts with decoration)
Ignore-this: c8315f438fed66b12282c9bfe70a4d0b
darcs-hash:20100113204017-7f603-729f7e7ef83461c0bdd2e45cdd4a07724af7f8a2
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Main.hsc | 5 |
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" |