From 5d42da6f605385a5692eaf34678e6d4524edad56 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Tue, 25 Sep 2007 20:29:30 +0200 Subject: modifyLayout -> handleMessage. darcs-hash:20070925182930-72aca-7941d37cac143444e9f167e3dd15944d1138a377.gz --- TwoPane.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'TwoPane.hs') 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)) -- cgit v1.2.3