--- a/DeviceWorkstation.st	Fri Sep 14 18:15:20 2018 +0200
+++ b/DeviceWorkstation.st	Fri Sep 14 18:16:00 2018 +0200
@@ -7753,24 +7753,32 @@
 !
 
 setPointerPosition:newPosition
-    "change the pointer position in root-window coordinates."
+    "change the pointer position in root-window coordinates.
+     Warning: moving the mouse pointer may lead to the mouse falling off the table
+     after a while. So it should be used very very seldom (if at all)"
 
     self setPointerPosition:newPosition in:(self rootView drawableId)
 
     "
      Display setPointerPosition:10@30
     "
+
+    "Modified (comment): / 14-09-2018 / 17:59:33 / Claus Gittinger"
 !
 
 setPointerPosition:newPosition in:aWindowID
     "change the pointer position relative to some views origin.
-     Must be redefined by concrete subclasses."
+     Must be redefined by concrete subclasses.
+     Warning: moving the mouse pointer may lead to the mouse falling off the table
+     after a while. So it should be used very very seldom (if at all)"
 
     ^ self subclassResponsibility
 
     "
      Display setPointerPosition:10@30
     "
+
+    "Modified (comment): / 14-09-2018 / 17:59:28 / Claus Gittinger"
 ! !
 
 !DeviceWorkstation methodsFor:'printing & storing'!