--- a/Color.st	Fri Sep 06 15:39:55 2002 +0200
+++ b/Color.st	Fri Sep 06 16:30:00 2002 +0200
@@ -4799,6 +4799,30 @@
     "
 
     "Modified: 10.2.1997 / 22:08:14 / cg"
+!
+
+slightlyDarkened
+    "return a new color, which is a bit darker than the receiver"
+
+    ^ self blendWith:(self blendWith:Black)
+
+    "
+     (Color green) inspect
+     (Color green) darkened inspect
+     (Color green) slightlyDarkened inspect
+    "
+!
+
+slightlyLightened
+    "return a new color, which is a bit lighter than the receiver"
+
+    ^ self blendWith:(self blendWith:White)
+
+    "
+     (Color red) inspect
+     (Color red) lightened inspect
+     (Color red) slightlyLightened inspect
+    "
 ! !
 
 !Color methodsFor:'instance release'!
@@ -5183,6 +5207,6 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.169 2002-07-24 15:04:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.170 2002-09-06 14:30:00 cg Exp $'
 ! !
 Color initialize!