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