--- a/Cursor.st	Tue Sep 22 21:01:58 2009 +0200
+++ b/Cursor.st	Sun Sep 27 10:25:45 2009 +0200
@@ -3499,6 +3499,13 @@
     cursorId := anId
 !
 
+setHotX:hx hotY:hy
+    "set the hotspot"
+
+    hotX := hx.
+    hotY := hy.
+!
+
 setShape:aShapeSymbol
     "set the shape"
 
@@ -3525,7 +3532,7 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.109 2009-05-26 06:36:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.110 2009-09-27 08:25:45 cg Exp $'
 ! !
 
 Cursor initialize!