From b2ac5a5056061a76bee34321dee0a9e109857f5e Mon Sep 17 00:00:00 2001 From: Jan Vornberger Date: Sat, 27 Jun 2009 11:43:16 +0200 Subject: Prevent windows from being decorated that are too small to contain decoration. Ignore-this: 39b806462bbd424f1206b635e9d506e1 darcs-hash:20090627094316-594c5-c34126e335304e76e57eb0bcacae5e2f7e9b8804.gz --- XMonad/Layout/Decoration.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad/Layout/Decoration.hs') diff --git a/XMonad/Layout/Decoration.hs b/XMonad/Layout/Decoration.hs index 0a51357..b19603e 100644 --- a/XMonad/Layout/Decoration.hs +++ b/XMonad/Layout/Decoration.hs @@ -157,9 +157,9 @@ class (Read (ds a), Show (ds a), Eq a) => DecorationStyle ds a where -- | The pure version of the main method, 'decorate'. pureDecoration :: ds a -> Dimension -> Dimension -> Rectangle -> W.Stack a -> [(a,Rectangle)] -> (a,Rectangle) -> Maybe Rectangle - pureDecoration _ _ ht _ s _ (w,Rectangle x y wh _) = if isInStack s w - then Just $ Rectangle x y wh ht - else Nothing + pureDecoration _ _ ht _ s _ (w,Rectangle x y wh ht') = if isInStack s w && (ht < ht') + then Just $ Rectangle x y wh ht + else Nothing -- | Given the theme's decoration width and height, the screen -- rectangle, the windows stack, the list of windows and -- cgit v1.2.3