modifyLayout -> handleMessage.

This commit is contained in:
David Roundy
2007-09-25 18:29:30 +00:00
parent 8c6ebf9d6e
commit 23af4f228b
5 changed files with 7 additions and 7 deletions

View File

@@ -51,7 +51,7 @@ instance Layout TwoPane a where
[] -> [(focus st, rect)]
where (left, right) = splitHorizontallyBy split rect
modifyLayout (TwoPane delta split) x =
handleMessage (TwoPane delta split) x =
return $ case fromMessage x of
Just Shrink -> Just (TwoPane delta (split - delta))
Just Expand -> Just (TwoPane delta (split + delta))