fix one last bug w.r.t. issue 55.

This commit is contained in:
David Roundy 2007-10-12 01:05:09 +00:00
parent 6c94b3b217
commit 6d7307030a

View File

@ -256,6 +256,6 @@ handle (ConfigureEvent {ev_window = w}) = whenX (isRoot w) rescreen
-- property notify -- property notify
handle PropertyEvent { ev_event_type = t, ev_atom = a } handle PropertyEvent { ev_event_type = t, ev_atom = a }
| t == propertyNotify && a == wM_NAME = do logHook | t == propertyNotify && a == wM_NAME = logHook `catchX` return ()
handle e = broadcastMessage e -- trace (eventName e) -- ignoring handle e = broadcastMessage e -- trace (eventName e) -- ignoring