From a6ce16d2e7a28b10b711962e7f14541891afe931 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Mon, 18 Feb 2008 18:49:50 +0000 Subject: [PATCH] Tabbed and TabBarDecoration: no need to implement decorateFirst (the default is used) --- 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 0bae9efb..c6819245 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 14970654..79ae941e 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