Added mouse binding and changed layouts

This commit is contained in:
Matthias Schiffer 2010-02-16 11:45:32 +01:00
parent a1af240919
commit e2f3a13936
3 changed files with 26 additions and 10 deletions

View file

@ -85,7 +85,7 @@ instance LayoutModifier FullscreenManager Window where
isFloating :: Window -> X (Bool)
isFloating :: Window -> X Bool
isFloating w = gets windowset >>= \ws -> return $ M.member w (W.floating ws)