diff options
author | David Roundy <droundy@darcs.net> | 2007-08-23 17:58:10 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-08-23 17:58:10 +0200 |
commit | 8f54ab4d1e6c7f9a037522ffb45e89895a6389fd (patch) | |
tree | 3f7b187f4985f4df795348f58d997671a4accf84 /DragPane.hs | |
parent | 97f202800359cdccc65ba4d2c43219a056ca362c (diff) | |
download | XMonadContrib-8f54ab4d1e6c7f9a037522ffb45e89895a6389fd.tar.gz XMonadContrib-8f54ab4d1e6c7f9a037522ffb45e89895a6389fd.tar.xz XMonadContrib-8f54ab4d1e6c7f9a037522ffb45e89895a6389fd.zip |
fix bug where we draw divider for DragPane even if there's just one window.
darcs-hash:20070823155810-72aca-54fbe17b2a3645d49762a441e5c8b85081aebff4.gz
Diffstat (limited to '')
-rw-r--r-- | DragPane.hs | 10 |
1 files 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 = |