--- a/Cursor.st	Fri Sep 01 18:18:22 2000 +0200
+++ b/Cursor.st	Fri Sep 01 18:29:31 2000 +0200
@@ -2390,10 +2390,14 @@
 !
 
 defaultFgColor:fgColor defaultBgColor:bgColor
-    "set the default colors used for cursors"
+    "set the default colors used for new cursors"
 
     DefaultFgColor := fgColor.
-    DefaultBgColor := bgColor
+    DefaultBgColor := bgColor.
+
+    "
+     Cursor defaultFgColor:(Color red) defaultBgColor:(Color white)
+    "
 ! !
 
 !Cursor class methodsFor:'standard cursors'!
@@ -3324,6 +3328,6 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.92 2000-09-01 16:09:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.93 2000-09-01 16:29:31 cg Exp $'
 ! !
 Cursor initialize!