--- a/ClrValue.st	Wed Jun 12 14:17:14 1996 +0200
+++ b/ClrValue.st	Wed Jun 12 14:24:09 1996 +0200
@@ -103,10 +103,10 @@
 
 !ColorValue methodsFor:'accessing'!
 
-red
-    "return the red component in 0..1"
+blue
+    "return the blue component in 0..1"
 
-    ^ red / MaxValue
+    ^ blue / MaxValue
 !
 
 green
@@ -115,14 +115,40 @@
     ^ green / MaxValue
 !
 
-blue
-    "return the blue component in 0..1"
+light
+    "return the hue component in 0..1"
+
+    ^ super light / 100.0
+
+    "
+     Color yellow light
+     ColorValue yellow light
+    "
+
+    "Created: 11.6.1996 / 17:17:39 / cg"
+!
 
-    ^ blue / MaxValue
+red
+    "return the red component in 0..1"
+
+    ^ red / MaxValue
+!
+
+saturation
+    "return the saturation component in 0..1"
+
+    ^ super saturation / 100.0
+
+    "
+     Color yellow saturation     
+     ColorValue yellow saturation  
+    "
+
+    "Created: 11.6.1996 / 17:17:57 / cg"
 ! !
 
 !ColorValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/ClrValue.st,v 1.11 1996-06-12 12:17:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/ClrValue.st,v 1.12 1996-06-12 12:24:09 cg Exp $'
 ! !