twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix bug where we draw divider for DragPane even if there's just one window.

Browse Source
This commit is contained in:
David Roundy
2007-08-23 15:58:10 +00:00
parent d9258cb5fa
commit ebe8385a4f
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
DragPane.hs
View File

@@ -71,8 +71,9 @@ dragPane ident delta split = Layout { doLayout = dolay, modifyLayout = return .
sendMessage (SetFrac ident ((fromIntegral ex - leftmost)/widt))) sendMessage (SetFrac ident ((fromIntegral ex - leftmost)/widt)))
(return ()) (return ())
l' <- handle (dragPane ident delta split) ml' <- if length wrs > 1 then Just `fmap` handle (dragPane ident delta split)
return (wrs, Just l') else return Nothing
return (wrs, ml')
message x | Just Shrink <- fromMessage x = Just (dragPane ident delta (split - delta)) message x | Just Shrink <- fromMessage x = Just (dragPane ident delta (split - delta))
| Just Expand <- 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 = | 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))) sendMessage (SetFrac ident ((fromIntegral ey - leftmost)/widt)))
(return ()) (return ())
l' <- handle (dragUpDownPane ident delta split) ml' <- if length wrs > 1 then Just `fmap` handle (dragUpDownPane ident delta split)
return (wrs, Just l') else return Nothing
return (wrs, ml')
message x | Just Shrink <- fromMessage x = Just (dragUpDownPane ident delta (split - delta)) message x | Just Shrink <- fromMessage x = Just (dragUpDownPane ident delta (split - delta))
| Just Expand <- 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 = | Just (SetFrac ident' frac) <- fromMessage x, ident' == ident =