--- a/ColorInspectorView.st	Fri May 30 00:24:22 2008 +0200
+++ b/ColorInspectorView.st	Fri May 30 11:05:30 2008 +0200
@@ -34,6 +34,36 @@
 "
 ! !
 
+!ColorInspectorView class methodsFor:'menu specs'!
+
+colorMenu
+    "This resource specification was automatically generated
+     by the MenuEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the MenuEditor may not be able to read the specification."
+
+    "
+     MenuEditor new openOnClass:ColorInspectorView andSelector:#colorMenu
+     (Menu new fromLiteralArrayEncoding:(ColorInspectorView colorMenu)) startUp
+    "
+
+    <resource: #menu>
+
+    ^ 
+     #(Menu
+        (
+         (MenuItem
+            label: 'Edit'
+            itemValue: openColorEditor
+            translateLabel: true
+          )
+         )
+        nil
+        nil
+      )
+! !
+
 !ColorInspectorView methodsFor:'accessing'!
 
 inspect:anObject
@@ -61,6 +91,9 @@
 
     colorView := View in:newPanel.
     colorView origin:(0.0 @ 0.8) corner:(1.0 @ 1.0).
+    colorView 
+        menuHolder:(self class colorMenu);
+        menuPerformer:self
 
     "
      ColorInspectorView inspect:(Color yellow)
@@ -68,8 +101,14 @@
     "
 ! !
 
+!ColorInspectorView methodsFor:'user actions'!
+
+openColorEditor
+    ColorEditDialog openOn:inspectedObject
+! !
+
 !ColorInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.11 2007-03-14 09:40:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.12 2008-05-30 09:05:30 cg Exp $'
 ! !