diff options
author | David Roundy <droundy@darcs.net> | 2007-10-23 17:24:48 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-10-23 17:24:48 +0200 |
commit | 1f9fb4da10c5da8c4225679446a2f5b6ea368d31 (patch) | |
tree | 2d2a66cc07ae6e27ac4e33db62c7107279d61770 | |
parent | a5ded0ec647f908988678525b0be0a4f5186063e (diff) | |
download | XMonadContrib-1f9fb4da10c5da8c4225679446a2f5b6ea368d31.tar.gz XMonadContrib-1f9fb4da10c5da8c4225679446a2f5b6ea368d31.tar.xz XMonadContrib-1f9fb4da10c5da8c4225679446a2f5b6ea368d31.zip |
fix bug in DragPane (where we forgot that r was mirrored).
darcs-hash:20071023152448-72aca-db692a20186d461c6ff44eb370fc1eabf01b6812.gz
Diffstat (limited to '')
-rw-r--r-- | DragPane.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/DragPane.hs b/DragPane.hs index df17a45..2bae163 100644 --- a/DragPane.hs +++ b/DragPane.hs @@ -93,8 +93,8 @@ handleEvent (DragPane (I (Just (win,r,ident))) ty _ _) | t == buttonPress && thisw == win || thisbw == win = do mouseDrag (\ex ey -> do let frac = case ty of - Vertical -> (fromIntegral ex - (fromIntegral $ rect_x r))/(fromIntegral $ rect_width r) - Horizontal -> (fromIntegral ey - (fromIntegral $ rect_y r))/(fromIntegral $ rect_height r) + Vertical -> (fromIntegral ex - (fromIntegral $ rect_x r))/(fromIntegral $ rect_width r) + Horizontal -> (fromIntegral ey - (fromIntegral $ rect_x r))/(fromIntegral $ rect_width r) sendMessage (SetFrac ident frac)) (return ()) handleEvent _ _ = return () |