diff options
| author | Stefan O'Rear <stefanor@cox.net> | 2007-06-12 08:07:13 +0200 |
|---|---|---|
| committer | Stefan O'Rear <stefanor@cox.net> | 2007-06-12 08:07:13 +0200 |
| commit | 3d93d359bae57d3981f23f8f515268dc8567d122 (patch) | |
| tree | fe3cebb7218e09e2b7a8a7a0a1fe300d746704e8 /Decoration.hs | |
| parent | 0d2a4165b0d6546f63ef83f43c9c04d7aedf6cfd (diff) | |
| download | XMonadContrib-3d93d359bae57d3981f23f8f515268dc8567d122.tar.gz XMonadContrib-3d93d359bae57d3981f23f8f515268dc8567d122.tar.xz XMonadContrib-3d93d359bae57d3981f23f8f515268dc8567d122.zip | |
In Decoration.hs, track rename of ModifyWindows
darcs-hash:20070612060713-e3110-858385a5514a1d93e6eea429f5673bfe6531c23a.gz
Diffstat (limited to 'Decoration.hs')
| -rw-r--r-- | Decoration.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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}) |