--- a/ImageEditor.st	Thu Dec 06 09:15:59 2001 +0100
+++ b/ImageEditor.st	Thu Dec 06 18:28:14 2001 +0100
@@ -1019,6 +1019,14 @@
                 #translateLabel: true
                 #value: #addColorToColormap
             )
+             #(#MenuItem
+                #label: '-'
+            )
+             #(#MenuItem
+                #label: 'Inspect Color'
+                #translateLabel: true
+                #value: #inspectColor
+            )
 "/             #(#MenuItem
 "/                #label: 'Make Brighter'
 "/                #translateLabel: true
@@ -2731,6 +2739,18 @@
     ]
 !
 
+inspectColor
+    | img clrIndex|
+
+    img := self image.
+    img isNil ifTrue:[
+        self warn:'No Image.'.
+        ^ self
+    ].
+    clrIndex := self selectionOfColor value.
+    (img colorFromValue:clrIndex-1) inspect
+!
+
 makeGrayScale
     |anyChange img|