From 5ccaf1ca461fdcf995b4801dcc988c91ff8f20e6 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Fri, 16 Sep 2011 13:11:49 -0400
Subject: [PATCH] correcting coordinate calculations

---
 examples/mouse.rkt   | 6 ++++--
 world/raw-jsworld.js | 7 +++++--
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/examples/mouse.rkt b/examples/mouse.rkt
index f6ff704..1431111 100644
--- a/examples/mouse.rkt
+++ b/examples/mouse.rkt
@@ -10,8 +10,10 @@
 
 (define (mouse world x y type)
   (cond
-   [(string=? type "click")
+   
+   [(string=? type "move")
     (make-posn x y)]
+
    [else
     world]))
 
@@ -21,7 +23,7 @@
                (posn-y w)
                (empty-scene width height)))
                        
-
+(printf "let's see how this works.\n\n")
 (big-bang (make-posn 0 0)
           (on-mouse mouse)
           (to-draw draw))
\ No newline at end of file
diff --git a/world/raw-jsworld.js b/world/raw-jsworld.js
index 1a67b47..eeae8cc 100644
--- a/world/raw-jsworld.js
+++ b/world/raw-jsworld.js
@@ -926,8 +926,11 @@ var rawJsworld = {};
 	    var makeWrapped = function(type) {
                 return function(e) {
                     var x = e.pageX, y = e.pageY;
-                    x -= e.target.offsetLeft;
-                    y -= e.target.offsetLeft;
+                    var currentElement = e.target;
+                    do {
+                        x -= currentElement.offsetLeft;
+                        y -= currentElement.offsetTop;
+                    } while(currentElement = currentElement.offsetParent);
 		    preventDefault(e);
 		    stopPropagation(e);
 		    change_world(function(w, k) {