--- a/ColorValue.st	Wed Feb 22 02:20:09 1995 +0100
+++ b/ColorValue.st	Tue Mar 07 22:54:53 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.1 1995-02-18 15:31:28 claus Exp $
+$Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.2 1995-03-07 21:54:53 claus Exp $
 '!
 
 !ColorValue class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.1 1995-02-18 15:31:28 claus Exp $
+$Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.2 1995-03-07 21:54:53 claus Exp $
 "
 !
 
@@ -56,8 +56,8 @@
 !ColorValue class methodsFor:'instance creation'!
 
 red:r green:g blue:b
-    "return a color from red, green and blue values;
-     the arguments, r, g and b must be in the range (0..1)"
+    "return a color from red, green and blue values.
+     The arguments, r, g and b must be in the range (0..1)"
 
     ^ Color red:r*100 green:g*100 blue:b*100
 
@@ -66,6 +66,17 @@
     "
 !
 
+brightness:grey
+    "return a grey color.
+     The grey value is given in 0..1 instead of percent"
+
+    ^ Color grey:(grey * 100)
+
+    "
+     ColorValue brightness:0.5
+    "
+!
+
 scaledRed:r scaledGreen:g scaledBlue:b
      "ST-80 compatibility.
       Return a color from r, g and b values;