equal
deleted
inserted
replaced
1120 findObjectAt:aPoint |
1120 findObjectAt:aPoint |
1121 "find the origin/corner of the currentWidget |
1121 "find the origin/corner of the currentWidget |
1122 " |
1122 " |
1123 |view viewId lastId point listOfViews| |
1123 |view viewId lastId point listOfViews| |
1124 |
1124 |
|
1125 point := aPoint + (device translatePoint:0@0 fromView:self toView:rootView). |
|
1126 |
|
1127 inputView lower. |
|
1128 |
1125 viewId := rootView id. |
1129 viewId := rootView id. |
1126 point := aPoint + (device translatePoint:0@0 from:(self id) to:viewId). |
|
1127 |
|
1128 inputView lower. |
|
1129 |
|
1130 [viewId notNil] whileTrue:[ |
1130 [viewId notNil] whileTrue:[ |
1131 lastId := viewId. |
1131 lastId := viewId. |
1132 viewId := device viewIdFromPoint:point in:lastId |
1132 viewId := device viewIdFromPoint:point in:lastId |
1133 ]. |
1133 ]. |
1134 |
1134 |
1135 inputView raise. |
1135 inputView raise. |
1136 |
1136 |
1137 view := device viewFromId:lastId. |
1137 view := device viewFromId:lastId. |
1140 |
1140 |
1141 "/ look for 'hidden' views ... |
1141 "/ look for 'hidden' views ... |
1142 |
1142 |
1143 listOfViews := OrderedCollection new. |
1143 listOfViews := OrderedCollection new. |
1144 self allSubViewsDo:[:aView | |
1144 self allSubViewsDo:[:aView | |
1145 |org| |
1145 |org| |
1146 |
1146 |
1147 aView ~~ inputView ifTrue:[ |
1147 aView ~~ inputView ifTrue:[ |
1148 org := device translatePoint:0@0 from:(aView id) to:self id. |
1148 org := device translatePoint:0@0 fromView:aView toView:self. |
1149 ((org extent:aView extent) containsPoint:aPoint) ifTrue:[ |
1149 ((org extent:aView extent) containsPoint:aPoint) ifTrue:[ |
1150 listOfViews add:aView. |
1150 listOfViews add:aView. |
1151 ] |
1151 ] |
1152 ] |
1152 ] |
1153 ]. |
1153 ]. |
1154 |
1154 |
1155 listOfViews size > 0 ifTrue:[ |
1155 listOfViews size > 0 ifTrue:[ |
1156 ^ listOfViews last |
1156 ^ listOfViews last |
1157 ]. |
1157 ]. |
1158 ^ nil |
1158 ^ nil |
1159 |
1159 |
1160 |
1160 "Modified: / 10.10.2001 / 14:05:07 / cg" |
1161 ! ! |
1161 ! ! |
1162 |
1162 |
1163 !UIObjectView methodsFor:'selections'! |
1163 !UIObjectView methodsFor:'selections'! |
1164 |
1164 |
1165 hideSelection |
1165 hideSelection |