twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

the Stack can be Empty

Browse Source
This commit is contained in:
Andrea Rossato 2007-06-12 05:51:44 +00:00
parent 93ab005719
commit 1b0a012dd4
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Tabbed.hs
View File

@ -25,6 +25,7 @@ tabbed :: Layout
tabbed = Layout { doLayout = dolay, modifyLayout = const (return Nothing) } tabbed = Layout { doLayout = dolay, modifyLayout = const (return Nothing) }
dolay :: Rectangle -> W.Stack Window -> X [(Window, Rectangle)] dolay :: Rectangle -> W.Stack Window -> X [(Window, Rectangle)]
dolay _ W.Empty = return []
dolay sc (W.Node w [] []) = return [(w,sc)] dolay sc (W.Node w [] []) = return [(w,sc)]
dolay sc@(Rectangle x y wid _) s@(W.Node w _ _) = dolay sc@(Rectangle x y wid _) s@(W.Node w _ _) =
do let ws = W.integrate s do let ws = W.integrate s