diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-28 00:18:15 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-28 00:18:15 +0100 |
| commit | 640a6c6ffc4edb3916a0a74ea5fd8221d75a1250 (patch) | |
| tree | 3c3eebc64ff5a489ba423bf80d4b050ae6829494 | |
| parent | 751e083f7eceb7ab5c95b42666efa8f45d0672af (diff) | |
| download | XMonadContrib-640a6c6ffc4edb3916a0a74ea5fd8221d75a1250.tar.gz XMonadContrib-640a6c6ffc4edb3916a0a74ea5fd8221d75a1250.tar.xz XMonadContrib-640a6c6ffc4edb3916a0a74ea5fd8221d75a1250.zip | |
Decoration: after deleting the windows we must update the layout modifier
Thanks to Feuerbach for reporting this.
darcs-hash:20080127231815-32816-e877922bacb5f3bd37a65c248c745151107b485c.gz
| -rw-r--r-- | XMonad/Layout/Decoration.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Layout/Decoration.hs b/XMonad/Layout/Decoration.hs index 884c160..89edfcd 100644 --- a/XMonad/Layout/Decoration.hs +++ b/XMonad/Layout/Decoration.hs @@ -165,7 +165,8 @@ instance (DecorationStyle ds Window, Shrinker s) => LayoutModifier (Decoration d handleMess _ _ = return Nothing - emptyLayoutMod (Decoration (I (Just (DS dwrs _))) _ _) _ _ = deleteWindows (getDWs dwrs) >> return ([], Nothing) + emptyLayoutMod (Decoration (I (Just (DS dwrs _))) sh c) _ _ = do deleteWindows (getDWs dwrs) + return ([], Just $ Decoration (I Nothing) sh c) emptyLayoutMod _ _ _ = return ([], Nothing) modifierDescription (Decoration _ _ c) = describeDeco $ style c |