diff options
| author | Don Stewart <dons@galois.com> | 2008-04-18 05:31:33 +0200 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2008-04-18 05:31:33 +0200 |
| commit | ac4bd336ae538a592487e1324053ccd6e8e78df6 (patch) | |
| tree | b277013da0cfb9f0bc099e24f223631310e2fbf5 /XMonad/Layout/SimpleFloat.hs | |
| parent | adf4bc5e5cbe409ff343207be08d9304208301b1 (diff) | |
| download | XMonadContrib-ac4bd336ae538a592487e1324053ccd6e8e78df6.tar.gz XMonadContrib-ac4bd336ae538a592487e1324053ccd6e8e78df6.tar.xz XMonadContrib-ac4bd336ae538a592487e1324053ccd6e8e78df6.zip | |
polish
darcs-hash:20080418033133-cba2c-7cef4115ec26df3823213216d7ae8ff0e55ae637.gz
Diffstat (limited to 'XMonad/Layout/SimpleFloat.hs')
| -rw-r--r-- | XMonad/Layout/SimpleFloat.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/XMonad/Layout/SimpleFloat.hs b/XMonad/Layout/SimpleFloat.hs index b53b4ab..884a241 100644 --- a/XMonad/Layout/SimpleFloat.hs +++ b/XMonad/Layout/SimpleFloat.hs @@ -62,9 +62,10 @@ simpleFloat' s c = decoration s c (Simple False) (mouseResize $ windowArrangeAll data SimpleFloat a = SF Dimension deriving (Show, Read) 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" + 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 i (Rectangle rx ry _ _) w = do |