diff options
| author | Karsten Schoelzel <kuser@gmx.de> | 2007-09-05 21:39:26 +0200 |
|---|---|---|
| committer | Karsten Schoelzel <kuser@gmx.de> | 2007-09-05 21:39:26 +0200 |
| commit | 2f77d36f155c93691a443fbcfb108d6f57394106 (patch) | |
| tree | f6d5006cb5393914532ab91f4e3545e7799eb64e /FlexibleResize.hs | |
| parent | 8f6c3765e0bae0ec8284ce16d69f94104d0c3df7 (diff) | |
| download | XMonadContrib-2f77d36f155c93691a443fbcfb108d6f57394106.tar.gz XMonadContrib-2f77d36f155c93691a443fbcfb108d6f57394106.tar.xz XMonadContrib-2f77d36f155c93691a443fbcfb108d6f57394106.zip | |
Fix FlexibleResize for change in applySizeHints
darcs-hash:20070905193926-eb3a1-8fe38452c013fa023fa96f34dc3cebce6efb7c95.gz
Diffstat (limited to 'FlexibleResize.hs')
| -rw-r--r-- | FlexibleResize.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FlexibleResize.hs b/FlexibleResize.hs index d9ed6fb..6546258 100644 --- a/FlexibleResize.hs +++ b/FlexibleResize.hs @@ -60,8 +60,8 @@ mouseResizeWindow w = whenX (isClient w) $ withDisplay $ \d -> do firstHalf a b = fromIntegral a * 2 <= b cfst = curry fst csnd = curry snd - mkSel :: Bool -> Position -> Position -> (Position, a -> a -> a, CInt -> Dimension) + mkSel :: Bool -> Position -> Position -> (Position, a -> a -> a, CInt -> Position) mkSel b k p = if b - then (0, csnd, fromIntegral . max 1 . ((k + p) -) . fromIntegral) - else (k, cfst, fromIntegral . max 1 . subtract p . fromIntegral) + then (0, csnd, ((k + p) -) . fromIntegral) + else (k, cfst, subtract p . fromIntegral) |