--- a/Color.st Fri Jun 07 19:56:22 2019 +0100
+++ b/Color.st Wed May 20 13:36:34 2020 +0100
@@ -1309,6 +1309,7 @@
"Modified: 13.5.1996 / 12:41:53 / cg"
! !
+
!Color class methodsFor:'Compatibility-Squeak'!
colorPaletteForDepth: depth extent: chartExtent
@@ -3809,6 +3810,7 @@
"Modified: 11.7.1996 / 18:20:14 / cg"
! !
+
!Color methodsFor:'Compatibility-ST80'!
asDevicePaintOn:aDevice
@@ -3945,10 +3947,6 @@
"Modified: 11.6.1996 / 18:10:49 / cg"
!
-newTileMorphRepresentative
- ^ ColorTileMorph new colorSwatchColor: self
-!
-
privateBlue
"Squeak compatibility:
return the blue components value mapped to 0..MaxValue"
@@ -4247,6 +4245,21 @@
"Created: 11.6.1996 / 18:30:11 / cg"
!
+name
+ "Return the name of the color or nil, if the color has no standard name"
+
+ StandardColorValues keysAndValuesDo:[ :name :rgb |
+ (red = rgb first and:[green = rgb second and:[blue = rgb third]]) ifTrue:[ ^ name ]
+ ].
+ ^ nil
+
+ "
+ Color cyan name
+ "
+
+ "Created: / 20-05-2020 / 13:26:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
privateAlpha
"return the internal alpha value (0..255),
where 0 is completely transparent and 255 is completely opaque"
@@ -5708,6 +5721,11 @@
version_CVS
^ '$Header$'
+!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
! !