diff options
| author | Lukas Mai <l.mai@web.de> | 2008-04-05 00:05:58 +0200 |
|---|---|---|
| committer | Lukas Mai <l.mai@web.de> | 2008-04-05 00:05:58 +0200 |
| commit | b9fb7f750e00e35363832fdd398366621eabb2d3 (patch) | |
| tree | 75bcecb0786330bd29780184a277ef49b46079c7 /XMonad/Actions/FloatKeys.hs | |
| parent | 80a15fa2d0e0d0bc9e70ff4bbe1ee3b0e3194bff (diff) | |
| download | XMonadContrib-b9fb7f750e00e35363832fdd398366621eabb2d3.tar.gz XMonadContrib-b9fb7f750e00e35363832fdd398366621eabb2d3.tar.xz XMonadContrib-b9fb7f750e00e35363832fdd398366621eabb2d3.zip | |
update contrib for applySizeHints changes
darcs-hash:20080404220558-462cf-2d7837b574aec854a158213d45a34cca75e38438.gz
Diffstat (limited to 'XMonad/Actions/FloatKeys.hs')
| -rw-r--r-- | XMonad/Actions/FloatKeys.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Actions/FloatKeys.hs b/XMonad/Actions/FloatKeys.hs index 5e38b7e..c2343bf 100644 --- a/XMonad/Actions/FloatKeys.hs +++ b/XMonad/Actions/FloatKeys.hs @@ -94,7 +94,7 @@ keysAbsResizeWindow = keysMoveResize keysAbsResizeWindow' keysAbsResizeWindow' :: SizeHints -> P -> D -> D -> D -> (P,D) keysAbsResizeWindow' sh (x,y) (w,h) (dx,dy) (ax, ay) = ((round nx, round ny), (nw, nh)) where - (nw, nh) = applySizeHints sh (w + dx, h + dy) + (nw, nh) = applySizeHintsContents sh (w + dx, h + dy) nx :: Rational nx = fromIntegral (ax * w + nw * (fromIntegral x - ax)) / fromIntegral w ny :: Rational @@ -103,7 +103,7 @@ keysAbsResizeWindow' sh (x,y) (w,h) (dx,dy) (ax, ay) = ((round nx, round ny), (n keysResizeWindow' :: SizeHints -> P -> D -> D -> G -> (P,D) keysResizeWindow' sh (x,y) (w,h) (dx,dy) (gx, gy) = ((nx, ny), (nw, nh)) where - (nw, nh) = applySizeHints sh (w + dx, h + dy) + (nw, nh) = applySizeHintsContents sh (w + dx, h + dy) nx = round $ fromIntegral x + gx * fromIntegral w - gx * fromIntegral nw ny = round $ fromIntegral y + gy * fromIntegral h - gy * fromIntegral nh |