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

polish

Browse Source
This commit is contained in:
Don Stewart 2008-04-18 03:31:33 +00:00
parent 5344db6c90
commit 19156cb3ff
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Layout/SimpleFloat.hs
View File

@ -62,9 +62,10 @@ simpleFloat' s c = decoration s c (Simple False) (mouseResize $ windowArrangeAll
data SimpleFloat a = SF Dimension deriving (Show, Read) 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)
return (wrs, Nothing)
description _ = "Float" description _ = "Float"
doLayout (SF i) sc (S.Stack w l r) = do
wrs <- mapM (getSize i sc) (w : reverse l ++ r)
return (wrs, Nothing)
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