# HG changeset patch
# User ca
# Date 1196675840 -3600
# Node ID 919b6f0753faf160f217c95ec554387a8edaf300
# Parent  b465c7e480505197af42a2bce0d970feaca85e71
changed #processEvent:

diff -r b465c7e48050 -r 919b6f0753fa UIObjectView.st
--- a/UIObjectView.st	Mon Dec 03 10:56:56 2007 +0100
+++ b/UIObjectView.st	Mon Dec 03 10:57:20 2007 +0100
@@ -9,9 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
-
 "{ Package: 'stx:libtool2' }"
 
 ObjectView subclass:#UIObjectView
@@ -569,7 +566,7 @@
      the redraw when this happens.
      Return true, if I have eaten the event"
 
-    |evView x y p|
+    |evView p|
 
     self testMode ifTrue:[^ false].
 
@@ -597,9 +594,15 @@
         ^ true
     ].
 
-    x := anEvent x.
-    y := anEvent y.
-    p := device translatePoint:(x@y) fromView:evView toView:self.
+    anEvent isButtonMotionEvent ifTrue:[
+        "/ use current point - layout of underlaying view might change
+        "/ and computation dependent on origin is wrong
+        p := self sensor mousePoint.
+        p := device translatePoint:p fromView:nil toView:self.
+    ] ifFalse:[
+        p := Point x:(anEvent x) y:(anEvent y).
+        p := device translatePoint:p fromView:evView toView:self.
+    ].
 
     "/ patch the event
     anEvent x:p x.