equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
3528 top device setPointerPosition:sub2ScreenOrg. |
3530 top device setPointerPosition:sub2ScreenOrg. |
3529 Transcript show:'pointer now at %1' with:top device pointerPosition. |
3531 Transcript show:'pointer now at %1' with:top device pointerPosition. |
3530 " |
3532 " |
3531 |
3533 |
3532 "Modified: / 5.12.1998 / 14:30:57 / cg" |
3534 "Modified: / 5.12.1998 / 14:30:57 / cg" |
|
3535 ! |
|
3536 |
|
3537 originRelativeToTopView |
|
3538 "return the origin (in pixels) within my topView" |
|
3539 |
|
3540 ^ self originRelativeTo:(self topView) |
|
3541 |
|
3542 "Created: / 29-04-2020 / 17:20:58 / cg" |
3533 ! |
3543 ! |
3534 |
3544 |
3535 originRule |
3545 originRule |
3536 "return the origin block - non public; this will vanish without notice" |
3546 "return the origin block - non public; this will vanish without notice" |
3537 |
3547 |