diff -r 42aacfc3d263 -r 1d1b1483270c MenuEditor.st
--- a/MenuEditor.st	Fri Nov 14 10:53:23 1997 +0100
+++ b/MenuEditor.st	Wed Dec 03 18:41:16 1997 +0100
@@ -886,11 +886,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'unnamed canvas'
-              #'layout:' #(#LayoutFrame 219 0 193 0 485 0 511 0)
+              #'layout:' #(#LayoutFrame 377 0 282 0 643 0 600 0)
               #'label:' 'unnamed canvas'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1160 870)
-              #'bounds:' #(#Rectangle 219 193 486 512)
+              #'bounds:' #(#Rectangle 377 282 644 601)
               #'usePreferredExtent:' false
           )
           #'component:' 
@@ -928,14 +928,14 @@
                 )
                  #(#LabelSpec
                     #'name:' 'valueLabel'
-                    #'layout:' #(#AlignmentOrigin 87 0 94 0 1 0.5)
+                    #'layout:' #(#AlignmentOrigin 87 0 90 0 1 0.5)
                     #'label:' 'Value:'
                     #'adjust:' #right
                     #'resizeForLabel:' true
                 )
                  #(#InputFieldSpec
                     #'name:' 'valueField'
-                    #'layout:' #(#LayoutFrame 91 0 83 0 0 1.0 105 0)
+                    #'layout:' #(#LayoutFrame 91 0 79 0 0 1.0 101 0)
                     #'activeHelpKey:' #value
                     #'tabable:' true
                     #'model:' #value
@@ -943,14 +943,14 @@
                 )
                  #(#LabelSpec
                     #'name:' 'argumentLabel'
-                    #'layout:' #(#AlignmentOrigin 87 0 120 0 1 0.5)
+                    #'layout:' #(#AlignmentOrigin 87 0 116 0 1 0.5)
                     #'label:' 'Argument:'
                     #'adjust:' #right
                     #'resizeForLabel:' true
                 )
                  #(#InputFieldSpec
                     #'name:' 'argumentField'
-                    #'layout:' #(#LayoutFrame 91 0 109 0 0 1.0 131 0)
+                    #'layout:' #(#LayoutFrame 91 0 105 0 0 1.0 127 0)
                     #'activeHelpKey:' #argument
                     #'tabable:' true
                     #'model:' #argument
@@ -958,14 +958,14 @@
                 )
                  #(#LabelSpec
                     #'name:' 'indicationLabel'
-                    #'layout:' #(#AlignmentOrigin 87 0 160 0 1 0.5)
+                    #'layout:' #(#AlignmentOrigin 87 0 156 0 1 0.5)
                     #'label:' 'Indication:'
                     #'adjust:' #right
                     #'resizeForLabel:' true
                 )
                  #(#InputFieldSpec
                     #'name:' 'indicationField'
-                    #'layout:' #(#LayoutFrame 91 0 149 0 0 1.0 171 0)
+                    #'layout:' #(#LayoutFrame 91 0 145 0 0 1.0 167 0)
                     #'activeHelpKey:' #indication
                     #'tabable:' true
                     #'model:' #indication
@@ -1315,11 +1315,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'unnamed canvas'
-              #'layout:' #(#LayoutFrame 219 0 193 0 463 0 334 0)
+              #'layout:' #(#LayoutFrame 441 0 301 0 685 0 442 0)
               #'label:' 'unnamed canvas'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1280 1024)
-              #'bounds:' #(#Rectangle 219 193 464 335)
+              #'bounds:' #(#Rectangle 441 301 686 443)
               #'usePreferredExtent:' false
           )
           #'component:' 
@@ -1358,12 +1358,18 @@
                 )
                  #(#CheckBoxSpec
                     #'name:' 'iconAndLabel'
-                    #'layout:' #(#LayoutOrigin 15 0 85 0)
+                    #'layout:' #(#LayoutOrigin 15 0 103 0)
                     #'activeHelpKey:' #iconAndLabel
                     #'tabable:' true
                     #'model:' #iconAndLabel
                     #'label:' 'Icon & Label'
                 )
+                 #(#ActionButtonSpec
+                    #'name:' 'imageEditorButton'
+                    #'layout:' #(#LayoutFrame 81 0 65 0 0 1 87 0)
+                    #'label:' 'Image Editor'
+                    #'model:' #doEditImage
+                )
               )
           )
       )
@@ -1893,6 +1899,11 @@
 
 !
 
+doEditImage
+
+    ImageEditor open loadFromMessage: ((aspects at:#retriever) value ? specClass) , ' ', ((aspects at:#icon) value ? '')
+!
+
 doFromClass
 
     aspects at:#classNameChannel  put:(self specClass asValue).