diff options
author | David Roundy <droundy@darcs.net> | 2007-09-29 21:12:38 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-09-29 21:12:38 +0200 |
commit | 2e07689ceadaea1853c1228d14346853223be942 (patch) | |
tree | 69a6f1aed8bf082fd711a366baf3bf62534d9145 /LayoutScreens.hs | |
parent | 7c1d1059d2626927bbc553f0efccb0b472fa569f (diff) | |
download | XMonadContrib-2e07689ceadaea1853c1228d14346853223be942.tar.gz XMonadContrib-2e07689ceadaea1853c1228d14346853223be942.tar.xz XMonadContrib-2e07689ceadaea1853c1228d14346853223be942.zip |
some renaming of classes and data types.
darcs-hash:20070929191238-72aca-ceb0f2a89b35460e87cf9ff935f786b5a6028fb5.gz
Diffstat (limited to 'LayoutScreens.hs')
-rw-r--r-- | LayoutScreens.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LayoutScreens.hs b/LayoutScreens.hs index 7e97a66..06947d2 100644 --- a/LayoutScreens.hs +++ b/LayoutScreens.hs @@ -56,7 +56,7 @@ import Graphics.X11.Xlib.Extras -- %keybind , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (twoPane 0.5 0.5)) -- %keybind , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen) -layoutScreens :: Layout l Int => Int -> l Int -> X () +layoutScreens :: LayoutClass l Int => Int -> l Int -> X () layoutScreens nscr _ | nscr < 1 = trace $ "Can't layoutScreens with only " ++ show nscr ++ " screens." layoutScreens nscr l = do rtrect <- asks theRoot >>= getWindowRectangle @@ -77,7 +77,7 @@ getWindowRectangle w = withDisplay $ \d -> data FixedLayout a = FixedLayout [Rectangle] deriving (Read,Show) -instance Layout FixedLayout a where +instance LayoutClass FixedLayout a where doLayout (FixedLayout rs) _ s = return (zip (W.integrate s) rs, Nothing) fixedLayout :: [Rectangle] -> FixedLayout a |