From 8f54ab4d1e6c7f9a037522ffb45e89895a6389fd Mon Sep 17 00:00:00 2001 From: David Roundy Date: Thu, 23 Aug 2007 17:58:10 +0200 Subject: fix bug where we draw divider for DragPane even if there's just one window. darcs-hash:20070823155810-72aca-54fbe17b2a3645d49762a441e5c8b85081aebff4.gz --- DragPane.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/DragPane.hs b/DragPane.hs index 94101bc..8ecdb46 100644 --- a/DragPane.hs +++ b/DragPane.hs @@ -71,8 +71,9 @@ dragPane ident delta split = Layout { doLayout = dolay, modifyLayout = return . sendMessage (SetFrac ident ((fromIntegral ex - leftmost)/widt))) (return ()) - l' <- handle (dragPane ident delta split) - return (wrs, Just l') + ml' <- if length wrs > 1 then Just `fmap` handle (dragPane ident delta split) + else return Nothing + return (wrs, ml') message x | Just Shrink <- fromMessage x = Just (dragPane ident delta (split - delta)) | Just Expand <- fromMessage x = Just (dragPane ident delta (split + delta)) | Just (SetFrac ident' frac) <- fromMessage x, ident' == ident = @@ -105,8 +106,9 @@ dragUpDownPane ident delta split = Layout { doLayout = dolay, modifyLayout = ret sendMessage (SetFrac ident ((fromIntegral ey - leftmost)/widt))) (return ()) - l' <- handle (dragUpDownPane ident delta split) - return (wrs, Just l') + ml' <- if length wrs > 1 then Just `fmap` handle (dragUpDownPane ident delta split) + else return Nothing + return (wrs, ml') message x | Just Shrink <- fromMessage x = Just (dragUpDownPane ident delta (split - delta)) | Just Expand <- fromMessage x = Just (dragUpDownPane ident delta (split + delta)) | Just (SetFrac ident' frac) <- fromMessage x, ident' == ident = -- cgit v1.2.3