Decoration: after deleting the windows we must update the layout modifier

Thanks to Feuerbach for reporting this.
This commit is contained in:
Andrea Rossato
2008-01-27 23:18:15 +00:00
parent c281e20e0a
commit 700944720b

View File

@@ -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