From 1f9fb4da10c5da8c4225679446a2f5b6ea368d31 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Tue, 23 Oct 2007 17:24:48 +0200
Subject: fix bug in DragPane (where we forgot that r was mirrored).

darcs-hash:20071023152448-72aca-db692a20186d461c6ff44eb370fc1eabf01b6812.gz
---
 DragPane.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'DragPane.hs')

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 ()
-- 
cgit v1.2.3