diff -r 0febd9497fe1 -r 512913ffbdd9 MenuEditor.st
--- a/MenuEditor.st	Tue Jun 29 19:55:52 1999 +0200
+++ b/MenuEditor.st	Fri Jul 02 11:21:20 1999 +0200
@@ -179,7 +179,7 @@
 'An argument passed to above selector, if it is a 1 or a 2 argument selector.'
 
 #basicsChoice
-'A boolean holder, a boolean block, or a boolean method, specifying the choices state.'
+'A boolean holder, block or method, specifying the choices state (like a RadioButtonGroup).'
 
 #basicsChoiceValue
 'That choices value (typically number or symbol).'
@@ -351,201 +351,213 @@
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'Basics Item'
-              #layout: #(#LayoutFrame 216 0 173 0 482 0 491 0)
-              #label: 'Basics Item'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1160 870)
-              #bounds: #(#Rectangle 216 173 483 492)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#LabelSpec
-                    #name: 'nameKeyLabel'
-                    #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
-                    #activeHelpKey: #basicsKey
-                    #label: 'Name Key:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'nameKeyField'
-                    #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
-                    #activeHelpKey: #basicsKey
-                    #tabable: true
-                    #model: #nameKey
-                    #group: #inputGroup
-                    #type: #symbolOrNil
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #acceptOnLostFocus: true
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#LabelSpec
-                    #name: 'labelLabel'
-                    #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
-                    #activeHelpKey: #basicsLabel
-                    #label: 'Label:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'labelField'
-                    #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
-                    #activeHelpKey: #basicsLabel
-                    #tabable: true
-                    #model: #label
-                    #group: #inputGroup
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #acceptOnLostFocus: true
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#LabelSpec
-                    #name: 'valueLabel'
-                    #layout: #(#AlignmentOrigin 107 0 90 0 1 0.5)
-                    #activeHelpKey: #basicsAction
-                    #label: 'Action:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'valueField'
-                    #layout: #(#LayoutFrame 110 0 79 0 -5 1.0 101 0)
-                    #activeHelpKey: #basicsAction
-                    #tabable: true
-                    #model: #value
-                    #group: #inputGroup
-                    #type: #symbolOrNil
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #acceptOnLostFocus: true
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#LabelSpec
-                    #name: 'argumentLabel'
-                    #layout: #(#AlignmentOrigin 107 0 115 0 1 0.5)
-                    #activeHelpKey: #basicsArgument
-                    #label: 'Argument:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'argumentField'
-                    #layout: #(#LayoutFrame 110 0 104 0 -5 1.0 126 0)
-                    #activeHelpKey: #basicsArgument
-                    #tabable: true
-                    #model: #argument
-                    #group: #inputGroup
-                    #type: #string
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #acceptOnLostFocus: true
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#LabelSpec
-                    #name: 'indicationLabel'
-                    #layout: #(#AlignmentOrigin 107 0 155 0 1 0.5)
-                    #activeHelpKey: #basicsIndication
-                    #label: 'Indication:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'indicationField'
-                    #layout: #(#LayoutFrame 110 0 144 0 -5 1.0 166 0)
-                    #activeHelpKey: #basicsIndication
-                    #enableChannel: #indicationEnabled
-                    #tabable: true
-                    #model: #indication
-                    #group: #inputGroup
-                    #type: #symbolOrNil
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #acceptOnLostFocus: true
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#LabelSpec
-                    #name: 'choiceLabel'
-                    #layout: #(#AlignmentOrigin 107 0 180 0 1 0.5)
-                    #activeHelpKey: #basicsChoice
-                    #label: 'Choice:'
-                    #translateLabel: true
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'choiceField'
-                    #layout: #(#LayoutFrame 110 0 169 0 -5 1.0 191 0)
-                    #activeHelpKey: #basicsChoice
-                    #enableChannel: #choiceEnabled
-                    #tabable: true
-                    #model: #choice
-                    #group: #inputGroup
-                    #type: #symbolOrNil
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #acceptOnLostFocus: true
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#LabelSpec
-                    #name: 'choiceValueLabel'
-                    #layout: #(#AlignmentOrigin 107 0 205 0 1 0.5)
-                    #activeHelpKey: #basicsChoiceValue
-                    #label: 'Value:'
-                    #translateLabel: true
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'choiceValueField'
-                    #layout: #(#LayoutFrame 110 0 194 0 -5 1.0 216 0)
-                    #activeHelpKey: #basicsChoiceValue
-                    #enableChannel: #choiceValueEnabled
-                    #tabable: true
-                    #model: #choiceValue
-                    #group: #inputGroup
-                    #type: #smalltalkObject
-                    #immediateAccept: false
-                    #acceptOnLeave: true
-                    #acceptOnReturn: true
-                    #acceptOnTab: true
-                    #acceptOnLostFocus: true
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#CheckBoxSpec
-                    #name: 'translateLabelCheckBox'
-                    #layout: #(#Point 20 230)
-                    #activeHelpKey: #basicsTranslateLabel
-                    #tabable: true
-                    #model: #translateLabel
-                    #label: 'Translate Label'
-                )
-                 #(#CheckBoxSpec
-                    #name: 'isButtonCheckBox'
-                    #layout: #(#Point 20 259)
-                    #activeHelpKey: #basicsIsButton
-                    #tabable: true
-                    #model: #isButton
-                    #label: 'Is Button'
-                )
-              )
-          )
+    ^ 
+     #(#FullSpec
+        #name: #basicsItemSpec
+        #window: 
+       #(#WindowSpec
+          #label: 'Basics Item'
+          #name: 'Basics Item'
+          #layout: #(#LayoutFrame 40 0 116 0 306 0 434 0)
+          #level: 0
+          #min: #(#Point 10 10)
+          #max: #(#Point 1160 870)
+          #bounds: #(#Rectangle 40 116 307 435)
+          #usePreferredExtent: false
+          #returnIsOKInDialog: true
+          #escapeIsCancelInDialog: true
+        )
+        #component: 
+       #(#SpecCollection
+          #collection: #(
+           #(#LabelSpec
+              #label: 'Name Key:'
+              #name: 'nameKeyLabel'
+              #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
+              #activeHelpKey: #basicsKey
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'nameKeyField'
+              #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
+              #activeHelpKey: #basicsKey
+              #tabable: true
+              #model: #nameKey
+              #group: #inputGroup
+              #type: #symbolOrNil
+              #acceptOnLeave: false
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptOnLostFocus: false
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Label:'
+              #name: 'labelLabel'
+              #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
+              #activeHelpKey: #basicsLabel
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'labelField'
+              #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
+              #activeHelpKey: #basicsLabel
+              #tabable: true
+              #model: #label
+              #group: #inputGroup
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptOnLostFocus: false
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Action:'
+              #name: 'valueLabel'
+              #layout: #(#AlignmentOrigin 107 0 90 0 1 0.5)
+              #activeHelpKey: #basicsAction
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'valueField'
+              #layout: #(#LayoutFrame 110 0 79 0 -5 1.0 101 0)
+              #activeHelpKey: #basicsAction
+              #tabable: true
+              #model: #value
+              #group: #inputGroup
+              #type: #symbolOrNil
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptOnLostFocus: false
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Argument:'
+              #name: 'argumentLabel'
+              #layout: #(#AlignmentOrigin 107 0 115 0 1 0.5)
+              #activeHelpKey: #basicsArgument
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'argumentField'
+              #layout: #(#LayoutFrame 110 0 104 0 -5 1.0 126 0)
+              #activeHelpKey: #basicsArgument
+              #tabable: true
+              #model: #argument
+              #group: #inputGroup
+              #type: #string
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptOnLostFocus: false
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Indication:'
+              #name: 'indicationLabel'
+              #layout: #(#AlignmentOrigin 107 0 155 0 1 0.5)
+              #activeHelpKey: #basicsIndication
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'indicationField'
+              #layout: #(#LayoutFrame 110 0 144 0 -5 1.0 166 0)
+              #activeHelpKey: #basicsIndication
+              #enableChannel: #indicationEnabled
+              #tabable: true
+              #model: #indication
+              #group: #inputGroup
+              #type: #symbolOrNil
+              #immediateAccept: true
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptOnLostFocus: false
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Choice:'
+              #name: 'choiceLabel'
+              #layout: #(#AlignmentOrigin 107 0 180 0 1 0.5)
+              #activeHelpKey: #basicsChoice
+              #translateLabel: true
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'choiceField'
+              #layout: #(#LayoutFrame 110 0 169 0 -5 1.0 191 0)
+              #activeHelpKey: #basicsChoice
+              #enableChannel: #choiceEnabled
+              #tabable: true
+              #model: #choice
+              #group: #inputGroup
+              #type: #symbolOrNil
+              #immediateAccept: true
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptOnLostFocus: false
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Value:'
+              #name: 'choiceValueLabel'
+              #layout: #(#AlignmentOrigin 107 0 205 0 1 0.5)
+              #activeHelpKey: #basicsChoiceValue
+              #translateLabel: true
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'choiceValueField'
+              #layout: #(#LayoutFrame 110 0 194 0 -5 1.0 216 0)
+              #activeHelpKey: #basicsChoiceValue
+              #enableChannel: #choiceValueEnabled
+              #tabable: true
+              #model: #choiceValue
+              #group: #inputGroup
+              #type: #smalltalkObject
+              #acceptOnLeave: false
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptOnLostFocus: false
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#CheckBoxSpec
+              #label: 'Translate Label'
+              #name: 'translateLabelCheckBox'
+              #layout: #(#Point 20 230)
+              #activeHelpKey: #basicsTranslateLabel
+              #tabable: true
+              #model: #translateLabel
+            )
+           #(#CheckBoxSpec
+              #label: 'Is Button'
+              #name: 'isButtonCheckBox'
+              #layout: #(#Point 20 259)
+              #activeHelpKey: #basicsIsButton
+              #tabable: true
+              #model: #isButton
+            )
+           )
+         
+        )
       )
 !
 
@@ -563,112 +575,117 @@
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'Basics Link'
-              #layout: #(#LayoutFrame 473 0 301 0 739 0 619 0)
-              #label: 'Basics Link'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1280 1024)
-              #bounds: #(#Rectangle 473 301 740 620)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#LabelSpec
-                    #name: 'nameKeyLabel'
-                    #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
-                    #activeHelpKey: #nameKey
-                    #label: 'Name Key:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'nameKeyField'
-                    #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
-                    #activeHelpKey: #basicsNameKey
-                    #tabable: true
-                    #model: #nameKey
-                    #type: #symbolOrNil
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #group: #inputGroup
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#LabelSpec
-                    #name: 'labelLabel'
-                    #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
-                    #label: 'Label:'
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'labelField'
-                    #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
-                    #activeHelpKey: #basicsLabel
-                    #tabable: true
-                    #model: #label
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #group: #inputGroup
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#LabelSpec
-                    #name: 'menuLabel'
-                    #layout: #(#AlignmentOrigin 107 0 76 0 1 0.5)
-                    #label: 'Menu:'
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'menuField'
-                    #layout: #(#LayoutFrame 110 0 65 0 -5 1.0 87 0)
-                    #activeHelpKey: #basicsMenu
-                    #tabable: true
-                    #model: #submenuChannel
-                    #type: #symbolOrNil
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #group: #inputGroup
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#LabelSpec
-                    #name: 'ArgumentLabel'
-                    #layout: #(#AlignmentOrigin 107 0 100 0 1 0.5)
-                    #label: 'Argument:'
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'argumentField'
-                    #layout: #(#LayoutFrame 110 0 90 0 -5 1.0 112 0)
-                    #activeHelpKey: #basicsMenuArgument
-                    #tabable: true
-                    #model: #argument
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #group: #inputGroup
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#CheckBoxSpec
-                    #name: 'translateLabelCheckBox'
-                    #layout: #(#Point 20 190)
-                    #activeHelpKey: #basicsTranslateLabel
-                    #tabable: true
-                    #model: #translateLabel
-                    #label: 'Translate Label'
-                )
-              )
-          )
+    ^ 
+     #(#FullSpec
+        #name: #basicsLinkSpec
+        #window: 
+       #(#WindowSpec
+          #label: 'Basics Link'
+          #name: 'Basics Link'
+          #layout: #(#LayoutFrame 8 0 143 0 274 0 461 0)
+          #level: 0
+          #min: #(#Point 10 10)
+          #max: #(#Point 1280 1024)
+          #bounds: #(#Rectangle 8 143 275 462)
+          #usePreferredExtent: false
+          #returnIsOKInDialog: true
+          #escapeIsCancelInDialog: true
+        )
+        #component: 
+       #(#SpecCollection
+          #collection: #(
+           #(#LabelSpec
+              #label: 'Name Key:'
+              #name: 'nameKeyLabel'
+              #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
+              #activeHelpKey: #nameKey
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'nameKeyField'
+              #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
+              #activeHelpKey: #basicsNameKey
+              #tabable: true
+              #model: #nameKey
+              #group: #inputGroup
+              #type: #symbolOrNil
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Label:'
+              #name: 'labelLabel'
+              #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
+              #resizeForLabel: true
+            )
+           #(#InputFieldSpec
+              #name: 'labelField'
+              #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
+              #activeHelpKey: #basicsLabel
+              #tabable: true
+              #model: #label
+              #group: #inputGroup
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Menu:'
+              #name: 'menuLabel'
+              #layout: #(#AlignmentOrigin 107 0 76 0 1 0.5)
+              #resizeForLabel: true
+            )
+           #(#InputFieldSpec
+              #name: 'menuField'
+              #layout: #(#LayoutFrame 110 0 65 0 -5 1.0 87 0)
+              #activeHelpKey: #basicsMenu
+              #tabable: true
+              #model: #submenuChannel
+              #group: #inputGroup
+              #type: #symbolOrNil
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Argument:'
+              #name: 'ArgumentLabel'
+              #layout: #(#AlignmentOrigin 107 0 100 0 1 0.5)
+              #resizeForLabel: true
+            )
+           #(#InputFieldSpec
+              #name: 'argumentField'
+              #layout: #(#LayoutFrame 110 0 90 0 -5 1.0 112 0)
+              #activeHelpKey: #basicsMenuArgument
+              #tabable: true
+              #model: #argument
+              #group: #inputGroup
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#CheckBoxSpec
+              #label: 'Translate Label'
+              #name: 'translateLabelCheckBox'
+              #layout: #(#Point 20 190)
+              #activeHelpKey: #basicsTranslateLabel
+              #tabable: true
+              #model: #translateLabel
+            )
+           )
+         
+        )
       )
-
-    "Modified: / 31.7.1998 / 01:18:16 / cg"
 !
 
 basicsMenuSpec
@@ -685,75 +702,78 @@
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'Basics Menu'
-              #layout: #(#LayoutFrame 473 0 301 0 739 0 619 0)
-              #label: 'Basics Menu'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1280 1024)
-              #bounds: #(#Rectangle 473 301 740 620)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#LabelSpec
-                    #name: 'nameKeyLabel'
-                    #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
-                    #label: 'Name Key:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'nameKeyField'
-                    #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
-                    #activeHelpKey: #basicsNameKey
-                    #tabable: true
-                    #model: #nameKey
-                    #type: #symbolOrNil
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #group: #inputGroup
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#LabelSpec
-                    #name: 'labelLabel'
-                    #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
-                    #label: 'Label:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'labelField'
-                    #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
-                    #activeHelpKey: #basicsLabel
-                    #tabable: true
-                    #model: #label
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #group: #inputGroup
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#CheckBoxSpec
-                    #name: 'translateLabelCheckBox'
-                    #layout: #(#Point 20 190)
-                    #activeHelpKey: #basicsTranslateLabel
-                    #tabable: true
-                    #model: #translateLabel
-                    #label: 'Translate Label'
-                )
-              )
-          )
+    ^ 
+     #(#FullSpec
+        #name: #basicsMenuSpec
+        #window: 
+       #(#WindowSpec
+          #label: 'Basics Menu'
+          #name: 'Basics Menu'
+          #layout: #(#LayoutFrame 50 0 134 0 316 0 452 0)
+          #level: 0
+          #min: #(#Point 10 10)
+          #max: #(#Point 1280 1024)
+          #bounds: #(#Rectangle 50 134 317 453)
+          #usePreferredExtent: false
+          #returnIsOKInDialog: true
+          #escapeIsCancelInDialog: true
+        )
+        #component: 
+       #(#SpecCollection
+          #collection: #(
+           #(#LabelSpec
+              #label: 'Name Key:'
+              #name: 'nameKeyLabel'
+              #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'nameKeyField'
+              #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
+              #activeHelpKey: #basicsNameKey
+              #tabable: true
+              #model: #nameKey
+              #group: #inputGroup
+              #type: #symbolOrNil
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Label:'
+              #name: 'labelLabel'
+              #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'labelField'
+              #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
+              #activeHelpKey: #basicsLabel
+              #tabable: true
+              #model: #label
+              #group: #inputGroup
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#CheckBoxSpec
+              #label: 'Translate Label'
+              #name: 'translateLabelCheckBox'
+              #layout: #(#Point 20 190)
+              #activeHelpKey: #basicsTranslateLabel
+              #tabable: true
+              #model: #translateLabel
+            )
+           )
+         
+        )
       )
-
-    "Modified: / 31.7.1998 / 01:18:23 / cg"
 !
 
 basicsRootSpec
@@ -770,47 +790,49 @@
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'Basics Root'
-              #layout: #(#LayoutFrame 473 0 301 0 739 0 619 0)
-              #label: 'Basics Root'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1280 1024)
-              #bounds: #(#Rectangle 473 301 740 620)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#LabelSpec
-                    #name: 'selectorLabel'
-                    #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
-                    #label: 'Selector:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'selectorField'
-                    #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
-                    #activeHelpKey: #basicsSelector
-                    #tabable: true
-                    #model: #label
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #group: #inputGroup
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-              )
-          )
+    ^ 
+     #(#FullSpec
+        #name: #basicsRootSpec
+        #window: 
+       #(#WindowSpec
+          #label: 'Basics Root'
+          #name: 'Basics Root'
+          #layout: #(#LayoutFrame 11 0 100 0 277 0 418 0)
+          #level: 0
+          #min: #(#Point 10 10)
+          #max: #(#Point 1280 1024)
+          #bounds: #(#Rectangle 11 100 278 419)
+          #usePreferredExtent: false
+          #returnIsOKInDialog: true
+          #escapeIsCancelInDialog: true
+        )
+        #component: 
+       #(#SpecCollection
+          #collection: #(
+           #(#LabelSpec
+              #label: 'Selector:'
+              #name: 'selectorLabel'
+              #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'selectorField'
+              #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
+              #activeHelpKey: #basicsSelector
+              #tabable: true
+              #model: #label
+              #group: #inputGroup
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           )
+         
+        )
       )
-
-    "Modified: / 31.7.1998 / 01:18:28 / cg"
 !
 
 basicsSeparatorSpec
@@ -827,63 +849,65 @@
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'Basics Separator'
-              #layout: #(#LayoutFrame 473 0 301 0 739 0 619 0)
-              #label: 'Basics Separator'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1160 870)
-              #bounds: #(#Rectangle 473 301 740 620)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#LabelSpec
-                    #name: 'separatorLabel'
-                    #layout: #(#AlignmentOrigin 127 0 26 0 1 0.5)
-                    #label: 'Separator Type:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#ComboListSpec
-                    #name: 'seperatorList'
-                    #layout: #(#LayoutFrame 132 0 15 0 -5 1.0 37 0)
-                    #activeHelpKey: #basicsSeparatorType
-                    #tabable: true
-                    #model: #seperatorSelection
-                    #useIndex: true
-                )
-                 #(#LabelSpec
-                    #name: 'visibilityLabel'
-                    #layout: #(#AlignmentOrigin 127 0 76 0 1 0.5)
-                    #label: 'Visibility:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'visibilityInputField'
-                    #layout: #(#LayoutFrame 132 0 65 0 -5 1.0 87 0)
-                    #activeHelpKey: #detailsVisibility
-                    #tabable: true
-                    #model: #isVisible
-                    #type: #symbolOrNil
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #group: #inputGroup
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-              )
-          )
+    ^ 
+     #(#FullSpec
+        #name: #basicsSeparatorSpec
+        #window: 
+       #(#WindowSpec
+          #label: 'Basics Separator'
+          #name: 'Basics Separator'
+          #layout: #(#LayoutFrame 9 0 149 0 275 0 467 0)
+          #level: 0
+          #min: #(#Point 10 10)
+          #max: #(#Point 1160 870)
+          #bounds: #(#Rectangle 9 149 276 468)
+          #usePreferredExtent: false
+          #returnIsOKInDialog: true
+          #escapeIsCancelInDialog: true
+        )
+        #component: 
+       #(#SpecCollection
+          #collection: #(
+           #(#LabelSpec
+              #label: 'Separator Type:'
+              #name: 'separatorLabel'
+              #layout: #(#AlignmentOrigin 127 0 26 0 1 0.5)
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#ComboListSpec
+              #name: 'seperatorList'
+              #layout: #(#LayoutFrame 132 0 15 0 -5 1.0 37 0)
+              #activeHelpKey: #basicsSeparatorType
+              #tabable: true
+              #model: #seperatorSelection
+              #useIndex: true
+            )
+           #(#LabelSpec
+              #label: 'Visibility:'
+              #name: 'visibilityLabel'
+              #layout: #(#AlignmentOrigin 127 0 76 0 1 0.5)
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'visibilityInputField'
+              #layout: #(#LayoutFrame 132 0 65 0 -5 1.0 87 0)
+              #activeHelpKey: #detailsVisibility
+              #tabable: true
+              #model: #isVisible
+              #group: #inputGroup
+              #type: #symbolOrNil
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           )
+         
+        )
       )
-
-    "Modified: / 31.7.1998 / 01:18:32 / cg"
 !
 
 detailsEditSpec
@@ -900,133 +924,139 @@
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'Details Edit'
-              #layout: #(#LayoutFrame 332 0 374 0 590 0 661 0)
-              #label: 'Details Edit'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1280 1024)
-              #bounds: #(#Rectangle 332 374 591 662)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#LabelSpec
-                    #name: 'shortcutKeyLabel'
-                    #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
-                    #activeHelpKey: #detailsAccelerator
-                    #label: 'Accelerator:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'shortcutKeyField'
-                    #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
-                    #activeHelpKey: #detailsAccelerator
-                    #tabable: true
-                    #model: #shortcutKey
-                    #type: #symbolOrNil
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #group: #inputGroup
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#LabelSpec
-                    #name: 'enabledLabel'
-                    #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
-                    #activeHelpKey: #detailsEnabled
-                    #label: 'Enabled:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'enabledField'
-                    #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
-                    #activeHelpKey: #detailsEnabled
-                    #tabable: true
-                    #model: #enabled
-                    #type: #symbolOrNil
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #group: #inputGroup
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#LabelSpec
-                    #name: 'visibilityLabel'
-                    #layout: #(#AlignmentOrigin 107 0 76 0 1 0.5)
-                    #activeHelpKey: #detailsVisibility
-                    #label: 'Visibility:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'isVisibleInputField'
-                    #layout: #(#LayoutFrame 110 0 65 0 -5 1.0 87 0)
-                    #activeHelpKey: #detailsVisibility
-                    #tabable: true
-                    #model: #isVisible
-                    #type: #symbolOrNil
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #group: #inputGroup
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#LabelSpec
-                    #name: 'StartGroupLabel'
-                    #layout: #(#AlignmentOrigin 107 0 111 0 1 0.5)
-                    #activeHelpKey: #detailsStartGroup
-                    #label: 'Start Group:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#PopUpListSpec
-                    #name: 'StartGroupPopUp'
-                    #activeHelpKey: #detailsStartGroup
-                    #layout: #(#LayoutFrame 110 0 100 0 -5 1.0 122 0)
-                    #label: 'PopUpList'
-                    #tabable: true
-                    #model: #startGroup
-                    #menu: 
-                     #(nil
-                        #right
-                    )
-                    #useIndex: false
-                )
-                 #(#LabelSpec
-                    #name: 'accessCharLabel'
-                    #layout: #(#AlignmentOrigin 217 0 142 0 1 0.5)
-                    #activeHelpKey: #detailsAccessCharaterPosition
-                    #label: 'Access Character Position:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'accessCharField'
-                    #layout: #(#LayoutFrame 220 0 131 0 -5 1.0 153 0)
-                    #activeHelpKey: #detailsAccessCharaterPosition
-                    #tabable: true
-                    #model: #accessCharacterPos
-                    #type: #numberOrNil
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #group: #inputGroup
-                    #modifiedChannel: #modifiedChannel
-                    #acceptChannel: #acceptChannel
-                )
+    ^ 
+     #(#FullSpec
+        #name: #detailsEditSpec
+        #window: 
+       #(#WindowSpec
+          #label: 'Details Edit'
+          #name: 'Details Edit'
+          #layout: #(#LayoutFrame 707 0 270 0 965 0 557 0)
+          #level: 0
+          #min: #(#Point 10 10)
+          #max: #(#Point 1280 1024)
+          #bounds: #(#Rectangle 707 270 966 558)
+          #usePreferredExtent: false
+          #returnIsOKInDialog: true
+          #escapeIsCancelInDialog: true
+        )
+        #component: 
+       #(#SpecCollection
+          #collection: #(
+           #(#LabelSpec
+              #label: 'Accelerator:'
+              #name: 'shortcutKeyLabel'
+              #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
+              #activeHelpKey: #detailsAccelerator
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'shortcutKeyField'
+              #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
+              #activeHelpKey: #detailsAccelerator
+              #tabable: true
+              #model: #shortcutKey
+              #group: #inputGroup
+              #type: #symbolOrNil
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Enabled:'
+              #name: 'enabledLabel'
+              #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
+              #activeHelpKey: #detailsEnabled
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'enabledField'
+              #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
+              #activeHelpKey: #detailsEnabled
+              #tabable: true
+              #model: #enabled
+              #group: #inputGroup
+              #type: #symbolOrNil
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Visibility:'
+              #name: 'visibilityLabel'
+              #layout: #(#AlignmentOrigin 107 0 76 0 1 0.5)
+              #activeHelpKey: #detailsVisibility
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'isVisibleInputField'
+              #layout: #(#LayoutFrame 110 0 65 0 -5 1.0 87 0)
+              #activeHelpKey: #detailsVisibility
+              #tabable: true
+              #model: #isVisible
+              #group: #inputGroup
+              #type: #symbolOrNil
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Start Group:'
+              #name: 'StartGroupLabel'
+              #layout: #(#AlignmentOrigin 107 0 111 0 1 0.5)
+              #activeHelpKey: #detailsStartGroup
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#PopUpListSpec
+              #label: 'PopUpList'
+              #name: 'StartGroupPopUp'
+              #layout: #(#LayoutFrame 110 0 100 0 -5 1.0 122 0)
+              #activeHelpKey: #detailsStartGroup
+              #tabable: true
+              #model: #startGroup
+              #menu: 
+             #(nil
+                #right
               )
-          )
+              #useIndex: false
+            )
+           #(#LabelSpec
+              #label: 'Access Character Position:'
+              #name: 'accessCharLabel'
+              #layout: #(#AlignmentOrigin 217 0 142 0 1 0.5)
+              #activeHelpKey: #detailsAccessCharaterPosition
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'accessCharField'
+              #layout: #(#LayoutFrame 220 0 131 0 -5 1.0 153 0)
+              #activeHelpKey: #detailsAccessCharaterPosition
+              #tabable: true
+              #model: #accessCharacterPos
+              #group: #inputGroup
+              #type: #numberOrNil
+              #immediateAccept: false
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           )
+         
+        )
       )
-
-    "Modified: / 18.8.1998 / 16:16:46 / cg"
 !
 
 imageEditSpec
@@ -1043,102 +1073,108 @@
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'Image Item'
-              #layout: #(#LayoutFrame 25 0 119 0 420 0 395 0)
-              #label: 'Image Item'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1280 1024)
-              #bounds: #(#Rectangle 25 119 421 396)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#CheckBoxSpec
-                    #name: 'iconAndLabelCheckBox'
-                    #layout: #(#LayoutOrigin 20 0 215 0)
-                    #activeHelpKey: #imageImageAndLabel
-                    #tabable: true
-                    #model: #iconAndLabel
-                    #label: 'Image & Label'
-                )
-                 #(#LabelSpec
-                    #name: 'retrieverLabel'
-                    #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
-                    #activeHelpKey: #imageRetriever
-                    #label: 'Retriever:'
-                    #resizeForLabel: true
-                    #adjust: #right
-                )
-                 #(#ComboBoxSpec
-                    #name: 'retrieverField'
-                    #layout: #(#LayoutFrame 110 0 15 0 0 1.0 37 0)
-                    #activeHelpKey: #imageRetriever
-                    #tabable: true
-                    #model: #retriever
-                    #type: #symbolOrNil
-                    #acceptOnReturn: false
-                    #acceptOnTab: false
-                    #comboList: #retrieverClassList
-                )
-                 #(#LabelSpec
-                    #name: 'iconLabel'
-                    #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
-                    #activeHelpKey: #imageSelector
-                    #label: 'Selector:'
-                    #resizeForLabel: true
-                    #adjust: #right
-                )
-                 #(#InputFieldSpec
-                    #name: 'iconField'
-                    #layout: #(#LayoutFrame 110 0 40 0 -31 1.0 62 0)
-                    #activeHelpKey: #imageSelector
-                    #tabable: true
-                    #model: #icon
-                    #group: #inputGroup
-                    #type: #symbolOrNil
-                    #acceptOnReturn: false
-                    #modifiedChannel: #modifiedChannel
-                    #acceptOnTab: false
-                    #acceptChannel: #acceptChannel
-                )
-                 #(#ActionButtonSpec
-                    #name: 'imageEditorButton'
-                    #layout: #(#LayoutFrame 19 0.6 128 0 -5 1 152 0)
-                    #activeHelpKey: #imageImageEditor
-                    #label: 'Image Editor'
-                    #tabable: true
-                    #model: #doEditImage
-                )
-                 #(#SequenceViewSpec
-                    #name: 'systemOrUserImagesList'
-                    #layout: #(#LayoutFrame 22 0 67 0 11 0.6 200 0)
-                    #activeHelpKey: #imageImageList
-                    #model: #selectionOfImage
-                    #menu: #menuEditImage
-                    #hasHorizontalScrollBar: true
-                    #hasVerticalScrollBar: true
-                    #miniScrollerHorizontal: true
-                    #doubleClickSelector: #doEditImage
-                    #valueChangeSelector: #imageSelected
-                    #useIndex: false
-                    #sequenceList: #listOfImages
-                )
-                 #(#ActionButtonSpec
-                    #name: 'browseButton'
-                    #layout: #(#LayoutFrame -26 1 41 0 -2 1 63 0)
-                    #activeHelpKey: #browseResource
-                    #label: '...'
-                    #model: #doBrowseForImageResource
-                )
-              )
-          )
+    ^ 
+     #(#FullSpec
+        #name: #imageEditSpec
+        #window: 
+       #(#WindowSpec
+          #label: 'Image Item'
+          #name: 'Image Item'
+          #layout: #(#LayoutFrame 21 0 108 0 416 0 384 0)
+          #level: 0
+          #min: #(#Point 10 10)
+          #max: #(#Point 1280 1024)
+          #bounds: #(#Rectangle 21 108 417 385)
+          #usePreferredExtent: false
+          #returnIsOKInDialog: true
+          #escapeIsCancelInDialog: true
+        )
+        #component: 
+       #(#SpecCollection
+          #collection: #(
+           #(#CheckBoxSpec
+              #label: 'Image & Label'
+              #name: 'iconAndLabelCheckBox'
+              #layout: #(#LayoutOrigin 20 0 215 0)
+              #activeHelpKey: #imageImageAndLabel
+              #tabable: true
+              #model: #iconAndLabel
+            )
+           #(#LabelSpec
+              #label: 'Retriever:'
+              #name: 'retrieverLabel'
+              #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
+              #activeHelpKey: #imageRetriever
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#ComboBoxSpec
+              #name: 'retrieverField'
+              #layout: #(#LayoutFrame 110 0 15 0 0 1.0 37 0)
+              #activeHelpKey: #imageRetriever
+              #tabable: true
+              #model: #retriever
+              #type: #symbolOrNil
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptChannel: #acceptChannel
+              #acceptOnPointerLeave: false
+              #comboList: #retrieverClassList
+            )
+           #(#LabelSpec
+              #label: 'Selector:'
+              #name: 'iconLabel'
+              #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
+              #activeHelpKey: #imageSelector
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'iconField'
+              #layout: #(#LayoutFrame 110 0 40 0 -31 1.0 62 0)
+              #activeHelpKey: #imageSelector
+              #tabable: true
+              #model: #icon
+              #group: #inputGroup
+              #type: #symbolOrNil
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
+              #acceptOnPointerLeave: false
+            )
+           #(#ActionButtonSpec
+              #label: 'Image Editor'
+              #name: 'imageEditorButton'
+              #layout: #(#LayoutFrame 19 0.6 128 0 -5 1 152 0)
+              #activeHelpKey: #imageImageEditor
+              #tabable: true
+              #model: #doEditImage
+            )
+           #(#SequenceViewSpec
+              #name: 'systemOrUserImagesList'
+              #layout: #(#LayoutFrame 22 0 67 0 11 0.6 200 0)
+              #activeHelpKey: #imageImageList
+              #model: #selectionOfImage
+              #menu: #menuEditImage
+              #hasHorizontalScrollBar: true
+              #hasVerticalScrollBar: true
+              #miniScrollerHorizontal: true
+              #doubleClickSelector: #doEditImage
+              #valueChangeSelector: #imageSelected
+              #useIndex: false
+              #sequenceList: #listOfImages
+            )
+           #(#ActionButtonSpec
+              #label: '...'
+              #name: 'browseButton'
+              #layout: #(#LayoutFrame -26 1 41 0 -2 1 63 0)
+              #activeHelpKey: #browseResource
+              #model: #doBrowseForImageResource
+            )
+           )
+         
+        )
       )
 !
 
@@ -2365,7 +2401,8 @@
         ]
     ].   
     self updateInfoLabel.
-    self updateListAndSelectionOfImage
+    self updateListAndSelectionOfImage.
+
 !
 
 cancel
@@ -2375,7 +2412,7 @@
 
     (node := self treeView selectedNode) notNil ifTrue:[          
         self helpTool helpKey:(self helpKey).
-        aspects do:[:anAspect| anAspect value:nil].
+        aspects do:[:anAspect| anAspect value:'' ].
         node contents toAspects:aspects
     ].
     self valueOfEnablingCommitButtons value: false.