aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2008-01-27 10:24:15 +0100
committerAndrea Rossato <andrea.rossato@unibz.it>2008-01-27 10:24:15 +0100
commit18dd26cb46d51d2d64626449de858962530f2a29 (patch)
treeb8593f9f12f9fe3c30b61d1dd42311d0d27973b3
parentd53b46fdd2de0f9ea1e884a550ca0e80dc3ddba5 (diff)
downloadXMonadContrib-18dd26cb46d51d2d64626449de858962530f2a29.tar.gz
XMonadContrib-18dd26cb46d51d2d64626449de858962530f2a29.tar.xz
XMonadContrib-18dd26cb46d51d2d64626449de858962530f2a29.zip
Make LayoutCombinators deal with emptyLayout
darcs-hash:20080127092415-32816-35b3d878a2c1cb87f5e58711767c4c293d2d544b.gz
-rw-r--r--XMonad/Layout/LayoutCombinators.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/XMonad/Layout/LayoutCombinators.hs b/XMonad/Layout/LayoutCombinators.hs
index 1cfd067..c4e36f3 100644
--- a/XMonad/Layout/LayoutCombinators.hs
+++ b/XMonad/Layout/LayoutCombinators.hs
@@ -163,6 +163,10 @@ instance (LayoutClass l1 a, LayoutClass l2 a) => LayoutClass (NewSelect l1 l2) a
return (wrs, (\l1' -> NewSelect True l1' l2) `fmap` ml1')
doLayout (NewSelect False l1 l2) r s = do (wrs, ml2') <- doLayout l2 r s
return (wrs, (\l2' -> NewSelect False l1 l2') `fmap` ml2')
+ emptyLayout (NewSelect True l1 l2) r = do (wrs, ml1') <- emptyLayout l1 r
+ return (wrs, (\l1' -> NewSelect True l1' l2) `fmap` ml1')
+ emptyLayout (NewSelect False l1 l2) r = do (wrs, ml2') <- emptyLayout l2 r
+ return (wrs, (\l2' -> NewSelect False l1 l2') `fmap` ml2')
description (NewSelect True l1 _) = description l1
description (NewSelect False _ l2) = description l2
handleMessage l@(NewSelect False _ _) m