From ad628d03e87e67ce70bf65ea460359fc1e4fcfc7 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Mon, 18 Feb 2008 19:49:50 +0100
Subject: Tabbed and TabBarDecoration: no need to implement decorateFirst (the
default is used)
darcs-hash:20080218184950-32816-890c8dacefeb117b22f9379f66d468fb8023046e.gz
---
XMonad/Layout/TabBarDecoration.hs | 1 -
XMonad/Layout/Tabbed.hs | 1 -
2 files changed, 2 deletions(-)
diff --git a/XMonad/Layout/TabBarDecoration.hs b/XMonad/Layout/TabBarDecoration.hs
index 0bae9ef..c681924 100644
--- a/XMonad/Layout/TabBarDecoration.hs
+++ b/XMonad/Layout/TabBarDecoration.hs
@@ -65,7 +65,6 @@ data TabBarDecoration a = TabBar XPPosition deriving (Read, Show)
instance Eq a => DecorationStyle TabBarDecoration a where
describeDeco _ = "TabBar"
- decorateFirst _ = True
shrink _ _ r = r
decorationMouseDragHook _ _ _ = return ()
pureDecoration (TabBar p) _ dht (Rectangle x y wh ht) s _ (w,_) =
diff --git a/XMonad/Layout/Tabbed.hs b/XMonad/Layout/Tabbed.hs
index 1497065..79ae941 100644
--- a/XMonad/Layout/Tabbed.hs
+++ b/XMonad/Layout/Tabbed.hs
@@ -90,7 +90,6 @@ data TabbedDecoration a = Tabbed deriving (Read, Show)
instance Eq a => DecorationStyle TabbedDecoration a where
describeDeco _ = "Tabbed"
- decorateFirst _ = True
decorationMouseDragHook _ _ _ = return ()
pureDecoration _ _ ht _ s wrs (w,r@(Rectangle x y wh _)) =
if length wrs' <= 1 then Nothing
--
cgit v1.2.3