refactoring, style, comments on new layout code

This commit is contained in:
Don Stewart
2007-05-04 02:36:18 +00:00
parent b5ed587f2e
commit d0ef78e5c3
2 changed files with 61 additions and 40 deletions

View File

@@ -94,7 +94,9 @@ isRoot w = liftM (w==) (asks theRoot)
-- Layout handling
-- | The different layout modes
data Layout = Layout { doLayout :: Rectangle -> [Window] -> [(Window, Rectangle)]
-- 'doLayout', a pure function to layout a Window set
-- 'modifyLayout',
data Layout = Layout { doLayout :: Rectangle -> [Window] -> [(Window, Rectangle)]
, modifyLayout :: Dynamic -> Maybe Layout }
-- ---------------------------------------------------------------------