From 3d93d359bae57d3981f23f8f515268dc8567d122 Mon Sep 17 00:00:00 2001 From: Stefan O'Rear Date: Tue, 12 Jun 2007 08:07:13 +0200 Subject: In Decoration.hs, track rename of ModifyWindows darcs-hash:20070612060713-e3110-858385a5514a1d93e6eea429f5673bfe6531c23a.gz --- Decoration.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Decoration.hs') diff --git a/Decoration.hs b/Decoration.hs index d939be6..cbbe863 100644 --- a/Decoration.hs +++ b/Decoration.hs @@ -8,7 +8,7 @@ import Graphics.X11.Xlib.Extras ( Event(AnyEvent,ButtonEvent), ev_subwindow, ev_ import XMonadContrib.LayoutHooks import XMonad -import Operations ( ModifyWindows(ModifyWindows) ) +import Operations ( UnDoLayout(UnDoLayout) ) newDecoration :: Window -> Rectangle -> Int -> Pixel -> Pixel -> (Display -> Window -> GC -> X ()) -> X () -> X Window @@ -23,7 +23,7 @@ newDecoration decfor (Rectangle x y w h) th fg bg draw click = do let hook :: SomeMessage -> X Bool hook sm | Just e <- fromMessage sm = handle_event e >> (trace $ "handle even " ++ show win ++ show e) >> return True - | Just ModifyWindows == fromMessage sm = io (destroyWindow d win) >> (trace $ "destroyed decoration " ++ show win) >> return False + | Just UnDoLayout == fromMessage sm = io (destroyWindow d win) >> (trace $ "destroyed decoration " ++ show win) >> return False | otherwise = (trace $ "something weird " ++ show win) >> return True handle_event (ButtonEvent {ev_subwindow = thisw,ev_event_type = t}) -- cgit v1.2.3