diff options
author | Stefan O'Rear <stefanor@cox.net> | 2007-06-13 06:11:12 +0200 |
---|---|---|
committer | Stefan O'Rear <stefanor@cox.net> | 2007-06-13 06:11:12 +0200 |
commit | c031e72de2b6461698a448914dea54a6d8f3365e (patch) | |
tree | e605c6fde7fc464b0508dfa37a65eb54e08d029a | |
parent | 55ddb65c69dd48fc38d26754fb068df28c4c3611 (diff) | |
download | XMonadContrib-c031e72de2b6461698a448914dea54a6d8f3365e.tar.gz XMonadContrib-c031e72de2b6461698a448914dea54a6d8f3365e.tar.xz XMonadContrib-c031e72de2b6461698a448914dea54a6d8f3365e.zip |
Remove some debugging statements I forgot about earlier
darcs-hash:20070613041112-e3110-dfe7bf08177f7a38137a896805c8f340dcccff6c.gz
-rw-r--r-- | Decoration.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/Decoration.hs b/Decoration.hs index 7ad124c..f5b614e 100644 --- a/Decoration.hs +++ b/Decoration.hs @@ -20,12 +20,10 @@ newDecoration decfor (Rectangle x y w h) th fg bg draw click = do io $ selectInput d win $ exposureMask .|. buttonPressMask io $ mapWindow d win - trace $ "created decoration " ++ show win - - let hook :: SomeMessage -> X Bool - hook sm | Just e <- fromMessage sm = handle_event e >> (trace $ "handle even " ++ show win ++ show e) >> return True - | Just UnDoLayout == fromMessage sm = io (destroyWindow d win) >> (trace $ "destroyed decoration " ++ show win) >> return False - | otherwise = (trace $ "something weird " ++ show win) >> return True + let hook :: SomeMessage -> X Bool + hook sm | Just e <- fromMessage sm = handle_event e >> return True + | Just UnDoLayout == fromMessage sm = io (destroyWindow d win) >> return False + | otherwise = return True handle_event (ButtonEvent {ev_subwindow = thisw,ev_event_type = t}) | t == buttonPress && thisw == win = click |