--- a/Label.st	Fri Jan 14 16:56:15 2000 +0100
+++ b/Label.st	Fri Jan 14 18:21:32 2000 +0100
@@ -848,6 +848,13 @@
     "Modified: 22.4.1996 / 23:36:11 / cg"
 !
 
+defaultForegroundColor
+    "return the default foregroundColor of my instances."
+
+    ^ DefaultForegroundColor
+
+!
+
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
 
@@ -1762,5 +1769,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.107 1999-08-18 14:43:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.108 2000-01-14 17:21:32 cg Exp $'
 ! !