equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
1247 pointerInView |
1245 pointerInView |
1248 |pv dev| |
1246 |pv dev| |
1249 |
1247 |
1250 windowGroup isNil ifTrue:[^ false]. |
1248 windowGroup isNil ifTrue:[^ false]. |
1251 (pv := windowGroup pointerView) isNil ifTrue:[ |
1249 (pv := windowGroup pointerView) isNil ifTrue:[ |
1252 dev := self device. |
1250 dev := device. |
1253 dev isNil ifTrue:[^ false]. |
1251 dev isNil ifTrue:[^ false]. |
1254 pv := self device viewFromPoint:(dev pointerPosition). |
1252 pv := dev viewFromPoint:(dev pointerPosition). |
1255 pv isNil ifTrue:[^ false]. |
1253 pv isNil ifTrue:[^ false]. |
1256 ]. |
1254 ]. |
1257 (pv isSameOrComponentOf:self) ifTrue:[^ true]. |
1255 (pv isSameOrComponentOf:self) ifTrue:[^ true]. |
1258 "/ Transcript showCR:pv. |
1256 "/ Transcript showCR:pv. |
1259 ^ false. |
1257 ^ false. |