author | Claus Gittinger <cg@exept.de> |
Fri, 17 Feb 2017 12:36:50 +0100 | |
changeset 7909 | c5f82e9429f9 |
parent 7908 | 84a8ad360ada |
child 7910 | 303d43b7c688 |
--- a/Color.st Fri Feb 17 11:58:23 2017 +0100 +++ b/Color.st Fri Feb 17 12:36:50 2017 +0100 @@ -2046,13 +2046,15 @@ "return the orange color - ST-80 compatibility" Orange isNil ifTrue:[ - Orange := self redPercent:100 greenPercent:50 bluePercent:0. + Orange := self rgbValue:16rFFA500. ]. ^ Orange " Color orange inspect " + + "Modified: / 17-02-2017 / 12:34:20 / cg" ! orange: orange