mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-08-03 05:31:53 -07:00
SimpleFLoat: change the description to Float (Simple is the decoration description)
This commit is contained in:
@@ -61,7 +61,7 @@ data SimpleFloat a = SF Dimension deriving (Show, Read)
|
|||||||
instance LayoutClass SimpleFloat Window where
|
instance LayoutClass SimpleFloat Window where
|
||||||
doLayout (SF i) sc (S.Stack w l r) = do wrs <- mapM (getSize i sc) (w : reverse l ++ r)
|
doLayout (SF i) sc (S.Stack w l r) = do wrs <- mapM (getSize i sc) (w : reverse l ++ r)
|
||||||
return (wrs, Nothing)
|
return (wrs, Nothing)
|
||||||
description _ = "SimpleFloat"
|
description _ = "Float"
|
||||||
|
|
||||||
getSize :: Dimension -> Rectangle -> Window -> X (Window,Rectangle)
|
getSize :: Dimension -> Rectangle -> Window -> X (Window,Rectangle)
|
||||||
getSize i (Rectangle rx ry _ _) w = do
|
getSize i (Rectangle rx ry _ _) w = do
|
||||||
|
Reference in New Issue
Block a user