--- a/Cursor.st	Fri Sep 01 18:03:33 2000 +0200
+++ b/Cursor.st	Fri Sep 01 18:09:27 2000 +0200
@@ -2375,6 +2375,20 @@
 
 !Cursor class methodsFor:'default access'!
 
+defaultBgColor
+    "return the default bg color used for cursors"
+
+    ^ DefaultBgColor 
+
+!
+
+defaultFgColor
+    "return the default fg color used for cursors"
+
+    ^ DefaultFgColor 
+
+!
+
 defaultFgColor:fgColor defaultBgColor:bgColor
     "set the default colors used for cursors"
 
@@ -3310,6 +3324,6 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.91 2000-07-06 18:38:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.92 2000-09-01 16:09:27 cg Exp $'
 ! !
 Cursor initialize!