--- a/DeviceWorkstation.st	Mon Apr 07 19:36:27 1997 +0200
+++ b/DeviceWorkstation.st	Tue Apr 08 10:33:08 1997 +0200
@@ -2230,6 +2230,18 @@
 
 !DeviceWorkstation methodsFor:'cursor stuff'!
 
+builtInCursorShapes
+    "return a collection of standard cursor names.
+     Hre none is assumed - so all cursors are created as user cursors
+     (see Cursor>>initializeNewCursors)"
+
+    "/ if you add something here, also add to #shapeNumberFromCursor ...
+
+    ^ #()
+
+    "Created: 8.4.1997 / 10:32:31 / cg"
+!
+
 colorCursor:aCursorId foreground:fgColor background:bgColor
     "change a cursors colors. 
      Ignored on systems which do not support colored cursors."
@@ -5256,6 +5268,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.202 1997-04-04 17:24:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.203 1997-04-08 08:33:08 cg Exp $'
 ! !
 DeviceWorkstation initialize!