--- a/UIObjectView.st	Wed Oct 10 11:44:41 2001 +0200
+++ b/UIObjectView.st	Wed Oct 10 15:11:42 2001 +0200
@@ -1122,14 +1122,14 @@
     "
     |view viewId lastId point listOfViews|
 
-    viewId := rootView id.
-    point  := aPoint + (device translatePoint:0@0 from:(self id) to:viewId).
+    point  := aPoint + (device translatePoint:0@0 fromView:self toView:rootView).
 
     inputView lower.
 
+    viewId := rootView id.
     [viewId notNil] whileTrue:[
-	lastId := viewId.
-	viewId := device viewIdFromPoint:point in:lastId
+        lastId := viewId.
+        viewId := device viewIdFromPoint:point in:lastId
     ].
 
     inputView raise.
@@ -1142,22 +1142,22 @@
 
     listOfViews := OrderedCollection new.
     self allSubViewsDo:[:aView |
-	|org|
-
-	aView ~~ inputView ifTrue:[
-	    org := device translatePoint:0@0 from:(aView id) to:self id.
-	    ((org extent:aView extent) containsPoint:aPoint) ifTrue:[
-		listOfViews add:aView.
-	    ]
-	]
+        |org|
+
+        aView ~~ inputView ifTrue:[
+            org := device translatePoint:0@0 fromView:aView toView:self.
+            ((org extent:aView extent) containsPoint:aPoint) ifTrue:[
+                listOfViews add:aView.
+            ]
+        ]
     ].
 
     listOfViews size > 0 ifTrue:[
-	^ listOfViews last
+        ^ listOfViews last
     ].
     ^ nil
 
-
+    "Modified: / 10.10.2001 / 14:05:07 / cg"
 ! !
 
 !UIObjectView methodsFor:'selections'!