--- 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'!