--- a/DeviceWorkstation.st	Wed Apr 29 22:35:55 2020 +0200
+++ b/DeviceWorkstation.st	Mon May 04 19:15:18 2020 +0200
@@ -4222,6 +4222,42 @@
     ^ self subclassResponsibility
 !
 
+pointerPosition
+    "return the current pointer position in root-window coordinates.
+     Must be redefined by concrete subclasses."
+
+    ^ self subclassResponsibility
+!
+
+setPointerPosition:newPosition
+    "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.
+     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"
+!
+
 shapeNumberFromSymbol:shape
     "given a shape-symbol, return the corresponding cursor-number,
      or nil if no such standard cursor exists."
@@ -8036,13 +8072,6 @@
     ^ self subclassResponsibility
 !
 
-pointerPosition
-    "return the current pointer position in root-window coordinates.
-     Must be redefined by concrete subclasses."
-
-    ^ self subclassResponsibility
-!
-
 rightButtonPressed
     "return true, if the right button is currently pressed"
 
@@ -8063,35 +8092,6 @@
      Must be redefined by concrete subclasses."
 
     ^ self subclassResponsibility
-!
-
-setPointerPosition:newPosition
-    "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.
-     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'!