# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1007659694 -3600
# Node ID 1048b548abfae5a8783a46e9d344153767177287
# Parent  09c4ed98434d2cbb5cd860deccd1039a7849ffeb
*** empty log message ***

diff -r 09c4ed98434d -r 1048b548abfa ImageEditor.st
--- 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|