author | Claus Gittinger <cg@exept.de> |
Thu, 17 Nov 2016 22:10:31 +0100 | |
changeset 7681 | 924632d9eacf |
parent 7680 | 6597c1842893 |
child 7682 | 275c9ca283e1 |
--- a/DeviceWorkstation.st Thu Nov 17 14:21:07 2016 +0100 +++ b/DeviceWorkstation.st Thu Nov 17 22:10:31 2016 +0100 @@ -1101,7 +1101,13 @@ ! cursorPoint + "ST-80 compatibility: + return the position of the mouse pointer on this display + (in screen coordinates)" + ^ self pointerPosition + + "Modified (comment): / 17-11-2016 / 22:10:20 / cg" ! displayOpaqueString:s x:x y:y