# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1588612566 -7200
# Node ID 28837096674b12e307c9544cba934e20288acf14
# Parent  b3621d52dd8c24a8a22f160e0bee106696ab76ad
#DOCUMENTATION by cg
class: DeviceWorkstation
category of:
	#pointerPosition
	#setPointerPosition:
	#setPointerPosition:in:

diff -r b3621d52dd8c -r 28837096674b DeviceWorkstation.st
--- a/DeviceWorkstation.st	Mon May 04 19:15:18 2020 +0200
+++ b/DeviceWorkstation.st	Mon May 04 19:16:06 2020 +0200
@@ -4222,42 +4222,6 @@
     ^ 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."
@@ -8072,6 +8036,13 @@
     ^ 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"
 
@@ -8092,6 +8063,35 @@
      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'!