--- a/Color.st	Thu Nov 18 20:53:29 1999 +0100
+++ b/Color.st	Thu Nov 18 20:54:56 1999 +0100
@@ -1776,6 +1776,13 @@
     "Modified: 28.5.1996 / 20:52:03 / cg"
 !
 
+veryVeryLightGray
+    "return a very very light-grey color (US version ;-)"
+
+    ^ self grayPercent:93
+
+!
+
 white
     "return the white-color"
 
@@ -3536,7 +3543,7 @@
 !
 
 darker
-    "return a new color, which is slightly darker than the receiver.
+    "return a new color, which is darker than the receiver.
      Almost the same as darkened for Squeak compatibility."
 
     ^ self mixed:0.8333 with:Black
@@ -3599,6 +3606,36 @@
 newTileMorphRepresentative
 	^ ColorTileMorph new colorSwatchColor: self!
 
+slightlyDarker
+    "return a new color, which is slightly darker than the receiver.
+     Almost the same as darkened for Squeak compatibility."
+
+    ^ self mixed:0.8333 with:Black
+
+    "
+     (Color red) darker
+     (Color red) muchDarker
+    "
+
+    "Modified: 11.6.1996 / 18:10:37 / cg"
+
+!
+
+slightlyLighter
+    "return a new color, which is slightly lighter than the receiver.
+     Almost the same as darkened for Squeak compatibility."
+
+    ^ self mixed:0.2 with:White
+
+    "
+     (Color red) lighter
+     (Color red) slightlyLighter
+    "
+
+    "Modified: 11.6.1996 / 18:10:37 / cg"
+
+!
+
 veryMuchLighter
     "return a new color, which is very much lighter than the receiver.
      Added for Squeak compatibility."
@@ -5100,6 +5137,6 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.151 1999-11-13 12:15:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.152 1999-11-18 19:54:56 cg Exp $'
 ! !
 Color initialize!