--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ColorValue.st	Sat Feb 18 16:31:28 1995 +0100
@@ -0,0 +1,84 @@
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+Color subclass:#ColorValue
+       instanceVariableNames:''
+       classVariableNames:''
+       poolDictionaries:''
+       category:'Graphics-Support'
+!
+
+ColorValue comment:'
+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 $
+'!
+
+!ColorValue class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+version
+"
+$Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.1 1995-02-18 15:31:28 claus Exp $
+"
+!
+
+documentation
+"
+    ColorValue is provided for ST-80 compatibility.
+    read the section on compatibility issues in the Color class's documentation.
+"
+! !
+
+!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)"
+
+    ^ Color red:r*100 green:g*100 blue:b*100
+
+    "
+     ColorValue red:0 green:1 blue:0
+    "
+!
+
+scaledRed:r scaledGreen:g scaledBlue:b
+     "ST-80 compatibility.
+      Return a color from r, g and b values;
+      the arguments, r, g and b are interpreted as 13bit
+      direct value (0..8191); 0/0/0 is black, 8191/8191/8191 is white."
+
+    ^ Color red:(r * 100 / 8191)
+	    green:(g * 100 / 8191)
+	    blue:(b * 100 / 8191)
+
+    "
+     ColorValue scaledRed:8191 scaledGreen:8191 scaledBlue:8191
+     ColorValue scaledRed:0 scaledGreen:0 scaledBlue:0 
+     ColorValue scaledRed:4092 scaledGreen:4092 scaledBlue:4092 
+    "
+! !