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 /MagicFocus.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 'MagicFocus.hs')
| -rw-r--r-- | MagicFocus.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/MagicFocus.hs b/MagicFocus.hs index 44a6c09..8da3439 100644 --- a/MagicFocus.hs +++ b/MagicFocus.hs @@ -34,10 +34,10 @@ import StackSet data MagicFocus l a = MagicFocus (l a) deriving ( Show , Read ) -instance (Layout l Window) => Layout (MagicFocus l) Window where +instance (LayoutClass l Window) => LayoutClass (MagicFocus l) Window where doLayout = magicFocus -magicFocus :: Layout l Window => MagicFocus l Window -> Rectangle +magicFocus :: LayoutClass l Window => MagicFocus l Window -> Rectangle -> Stack Window -> X ([(Window, Rectangle)], Maybe (MagicFocus l Window)) magicFocus (MagicFocus l) r s = withWindowSet $ \wset -> do |