--- 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|