diff options
| -rw-r--r-- | XMonad/Layout/TabBarDecoration.hs | 1 | ||||
| -rw-r--r-- | XMonad/Layout/Tabbed.hs | 1 |
2 files changed, 0 insertions, 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 |