#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Thu, 17 Nov 2016 22:10:31 +0100
changeset 7681 924632d9eacf
parent 7680 6597c1842893
child 7682 275c9ca283e1
#DOCUMENTATION by cg class: DeviceWorkstation comment/format in: #cursorPoint
DeviceWorkstation.st
--- 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