#DOCUMENTATION by cg
class: DeviceWorkstation
category of:
#pointerPosition
#setPointerPosition:
#setPointerPosition:in:
--- 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'!