twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-04 22:21:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

Tabbed and TabBarDecoration: no need to implement decorateFirst (the default is used)

Browse Source
This commit is contained in:
Andrea Rossato
2008-02-18 18:49:50 +00:00
parent fd250226bc
commit a6ce16d2e7
2 changed files with 0 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
XMonad/Layout/TabBarDecoration.hs
View File

@@ -65,7 +65,6 @@ data TabBarDecoration a = TabBar XPPosition deriving (Read, Show)
instance Eq a => DecorationStyle TabBarDecoration a where instance Eq a => DecorationStyle TabBarDecoration a where
describeDeco _ = "TabBar" describeDeco _ = "TabBar"
decorateFirst _ = True
shrink _ _ r = r shrink _ _ r = r
decorationMouseDragHook _ _ _ = return () decorationMouseDragHook _ _ _ = return ()
pureDecoration (TabBar p) _ dht (Rectangle x y wh ht) s _ (w,_) = pureDecoration (TabBar p) _ dht (Rectangle x y wh ht) s _ (w,_) =

1
XMonad/Layout/Tabbed.hs
View File

@@ -90,7 +90,6 @@ data TabbedDecoration a = Tabbed deriving (Read, Show)
instance Eq a => DecorationStyle TabbedDecoration a where instance Eq a => DecorationStyle TabbedDecoration a where
describeDeco _ = "Tabbed" describeDeco _ = "Tabbed"
decorateFirst _ = True
decorationMouseDragHook _ _ _ = return () decorationMouseDragHook _ _ _ = return ()
pureDecoration _ _ ht _ s wrs (w,r@(Rectangle x y wh _)) = pureDecoration _ _ ht _ s wrs (w,r@(Rectangle x y wh _)) =
if length wrs' <= 1 then Nothing if length wrs' <= 1 then Nothing