summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-04-02 09:24:18 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-04-02 09:24:18 +0200
commitf46106e1411d69ce91567cd0c1198a52bac1b517 (patch)
tree12db1543c03e0ecdf1675ebf881abd18b1c19b9a
parent00b6fb5f9b3f3fcb8ff16ebde7314673c81f3f8b (diff)
downloadmetatile-f46106e1411d69ce91567cd0c1198a52bac1b517.tar
metatile-f46106e1411d69ce91567cd0c1198a52bac1b517.zip
Comment only.
darcs-hash:20070402072418-a5988-3b4db0be791c44772e0ce4ec49df25c16edaee94
-rw-r--r--Operations.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/Operations.hs b/Operations.hs
index 5c7a3e9..2558449 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -41,6 +41,11 @@ refresh = do
whenJust (W.peekStack n ws) (io . raiseWindow d)
whenJust (W.peek ws) setFocus
+-- | tile. Compute the positions for windows in horizontal layout
+-- mode.
+--
+-- TODO generalize this to vertical layout
+--
tile :: Rational -> Rectangle -> [Window] -> [(Window, Rectangle)]
tile _ _ [] = []
tile _ d [w] = [(w, d)]