--- a/DeviceWorkstation.st	Wed May 07 15:08:21 1997 +0200
+++ b/DeviceWorkstation.st	Wed May 07 16:03:17 1997 +0200
@@ -112,8 +112,8 @@
       isSlow          <Boolean>         set/cleared from startup - used to turn off
 					things like popup-shadows etc.
 
-      focusMode	      <Symbol>		nil, #pointer or #activeWindow
-      activeWindow    <View>		WINDOWS only: the currently active (foreground) view
+      focusMode       <Symbol>          nil, #pointer or #activeWindow
+      activeWindow    <View>            WINDOWS only: the currently active (foreground) view
 
     [class variables:]
 
@@ -4760,7 +4760,7 @@
     ^ self
 ! !
 
-!DeviceWorkstation methodsFor:'pointer queries'!
+!DeviceWorkstation methodsFor:'pointer stuff'!
 
 buttonStates
     "return an integer representing the state of the pointer buttons;
@@ -4826,6 +4826,27 @@
      Must be redefined by concrete subclasses."
 
     ^ self subclassResponsibility
+!
+
+setPointerPosition:newPosition
+    "change the pointer position in root-window coordinates."
+
+    self setPointerPosition:newPosition in:rootView id
+
+    "
+     Display setPointerPosition:10@30
+    "
+!
+
+setPointerPosition:newPosition in:aWindowID
+    "change the pointer position relative to some views origin.
+     Must be redefined by concrete subclasses."
+
+    ^ self subclassResponsibility
+
+    "
+     Display setPointerPosition:10@30
+    "
 ! !
 
 !DeviceWorkstation methodsFor:'printing & storing'!
@@ -5552,6 +5573,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.221 1997-05-06 12:49:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.222 1997-05-07 14:03:17 cg Exp $'
 ! !
 DeviceWorkstation initialize!