twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-13 19:25:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Error fix for Tabbed when tabbar always shown

Browse Source
This commit is contained in:
Ivan.Miljenovic
2008-04-24 06:31:35 +00:00
parent 336c617cbe
commit 8e5df4b950
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Layout/Tabbed.hs
View File

@@ -153,7 +153,7 @@ instance Eq a => DecorationStyle TabbedDecoration a where
describeDeco (Tabbed Bottom _ ) = "Tabbed Bottom" describeDeco (Tabbed Bottom _ ) = "Tabbed Bottom"
decorationMouseDragHook _ _ _ = return () decorationMouseDragHook _ _ _ = return ()
pureDecoration (Tabbed lc sh) _ ht _ s wrs (w,r@(Rectangle x y wh hh)) pureDecoration (Tabbed lc sh) _ ht _ s wrs (w,r@(Rectangle x y wh hh))
= if ((sh == Always) || length ws > 1) = if ((sh == Always && numWindows > 0) || numWindows > 1)
then Just $ case lc of then Just $ case lc of
Top -> upperTab Top -> upperTab
Bottom -> lowerTab Bottom -> lowerTab
@@ -164,6 +164,7 @@ instance Eq a => DecorationStyle TabbedDecoration a where
nx = maybe x loc $ w `elemIndex` ws nx = maybe x loc $ w `elemIndex` ws
upperTab = Rectangle nx y wid (fi ht) upperTab = Rectangle nx y wid (fi ht)
lowerTab = Rectangle nx (y+fi(hh-ht)) wid (fi ht) lowerTab = Rectangle nx (y+fi(hh-ht)) wid (fi ht)
numWindows = length ws
shrink (Tabbed loc _ ) (Rectangle _ _ _ dh) (Rectangle x y w h) shrink (Tabbed loc _ ) (Rectangle _ _ _ dh) (Rectangle x y w h)
= case loc of = case loc of
Top -> Rectangle x (y + fi dh) w (h - dh) Top -> Rectangle x (y + fi dh) w (h - dh)