modifyLayout -> handleMessage.

darcs-hash:20070925182930-72aca-7941d37cac143444e9f167e3dd15944d1138a377.gz

1 files changed, 1 insertions, 1 deletions

diff --git a/TwoPane.hs b/TwoPane.hs
index 0a3f0d5..90c4f13 100644
--- a/TwoPane.hs
+++ b/TwoPane.hs
@@ -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))