diff options
| author | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2009-06-27 11:43:16 +0200 |
|---|---|---|
| committer | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2009-06-27 11:43:16 +0200 |
| commit | b2ac5a5056061a76bee34321dee0a9e109857f5e (patch) | |
| tree | e3599d352143d6ba6bb300c0118757ea9bcb8714 /XMonad | |
| parent | 4ac52ef81a245cafabc48b9396276cc761bb9320 (diff) | |
| download | XMonadContrib-b2ac5a5056061a76bee34321dee0a9e109857f5e.tar.gz XMonadContrib-b2ac5a5056061a76bee34321dee0a9e109857f5e.tar.xz XMonadContrib-b2ac5a5056061a76bee34321dee0a9e109857f5e.zip | |
Prevent windows from being decorated that are too small to contain decoration.
Ignore-this: 39b806462bbd424f1206b635e9d506e1
darcs-hash:20090627094316-594c5-c34126e335304e76e57eb0bcacae5e2f7e9b8804.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Layout/Decoration.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |