--- a/Colormap.st	Wed Oct 30 09:49:34 2013 +0100
+++ b/Colormap.st	Tue Nov 05 12:31:53 2013 +0100
@@ -517,6 +517,15 @@
 
 !Colormap methodsFor:'queries'!
 
+indexOfColor: aColor
+    1 to:self size do:[:idx |
+        (self at:idx) = aColor ifTrue:[^ idx].
+    ].
+    ^ 0
+
+    "Created: / 05-11-2013 / 12:23:28 / cg"
+!
+
 indexOfPaintNearest: color
     |minDistance minIndex dist
      sz "{ Class: SmallInteger }"|
@@ -569,6 +578,6 @@
 !Colormap class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Colormap.st,v 1.40 2013-05-06 18:26:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Colormap.st,v 1.41 2013-11-05 11:31:53 cg Exp $'
 ! !