diff -r 6b7cfe55105b -r 5460de03e215 MenuEditor.st
--- a/MenuEditor.st	Mon Jul 26 09:33:21 1999 +0200
+++ b/MenuEditor.st	Mon Aug 02 12:53:59 1999 +0200
@@ -23,7 +23,7 @@
 	instanceVariableNames:'activeHelpKey enabled label value nameKey indication shortcutKey
 		accessCharacterPos retriever icon iconAndLabel submenuChannel
 		startGroup argument translateLabel isButton isVisible choice
-		choiceValue'
+		choiceValue auxValue'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:MenuEditor
@@ -130,6 +130,7 @@
         iconAndLabel
         icon
         isVisible
+        auxValue
      )
 
     "Modified: / 14.8.1998 / 14:46:36 / cg"
@@ -223,6 +224,9 @@
 #detailsAccessCharaterPosition
 'Index of the access character position of the textual label (optional).'
 
+#detailsAuxValue
+'Some additional value - for arbitrary use by the program'
+
 #detailsEnabled
 'Aspect or binding providing a boolean value holder for the enable-state of the menu item.'
 
@@ -926,11 +930,11 @@
        #(#WindowSpec
           #label: 'Details Edit'
           #name: 'Details Edit'
-          #layout: #(#LayoutFrame 707 0 270 0 965 0 557 0)
+          #layout: #(#LayoutFrame 28 0 94 0 342 0 377 0)
           #level: 0
           #min: #(#Point 10 10)
           #max: #(#Point 1280 1024)
-          #bounds: #(#Rectangle 707 270 966 558)
+          #bounds: #(#Rectangle 28 94 343 378)
           #usePreferredExtent: false
           #returnIsOKInDialog: true
           #escapeIsCancelInDialog: true
@@ -958,7 +962,6 @@
               #acceptOnTab: true
               #acceptChannel: #acceptChannel
               #modifiedChannel: #modifiedChannel
-              #acceptOnPointerLeave: false
             )
            #(#LabelSpec
               #label: 'Enabled:'
@@ -980,7 +983,6 @@
               #acceptOnTab: true
               #acceptChannel: #acceptChannel
               #modifiedChannel: #modifiedChannel
-              #acceptOnPointerLeave: false
             )
            #(#LabelSpec
               #label: 'Visibility:'
@@ -1002,12 +1004,11 @@
               #acceptOnTab: true
               #acceptChannel: #acceptChannel
               #modifiedChannel: #modifiedChannel
-              #acceptOnPointerLeave: false
             )
            #(#LabelSpec
               #label: 'Start Group:'
               #name: 'StartGroupLabel'
-              #layout: #(#AlignmentOrigin 107 0 111 0 1 0.5)
+              #layout: #(#AlignmentOrigin 107 0 139 0 1 0.5)
               #activeHelpKey: #detailsStartGroup
               #resizeForLabel: true
               #adjust: #right
@@ -1015,7 +1016,7 @@
            #(#PopUpListSpec
               #label: 'PopUpList'
               #name: 'StartGroupPopUp'
-              #layout: #(#LayoutFrame 110 0 100 0 -5 1.0 122 0)
+              #layout: #(#LayoutFrame 110 0 128 0 -5 1.0 150 0)
               #activeHelpKey: #detailsStartGroup
               #tabable: true
               #model: #startGroup
@@ -1028,14 +1029,14 @@
            #(#LabelSpec
               #label: 'Access Character Position:'
               #name: 'accessCharLabel'
-              #layout: #(#AlignmentOrigin 217 0 142 0 1 0.5)
+              #layout: #(#AlignmentOrigin 217 0 170 0 1 0.5)
               #activeHelpKey: #detailsAccessCharaterPosition
               #resizeForLabel: true
               #adjust: #right
             )
            #(#InputFieldSpec
               #name: 'accessCharField'
-              #layout: #(#LayoutFrame 220 0 131 0 -5 1.0 153 0)
+              #layout: #(#LayoutFrame 220 0 159 0 -5 1.0 181 0)
               #activeHelpKey: #detailsAccessCharaterPosition
               #tabable: true
               #model: #accessCharacterPos
@@ -1046,7 +1047,28 @@
               #acceptOnTab: true
               #acceptChannel: #acceptChannel
               #modifiedChannel: #modifiedChannel
-              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Aux Value'
+              #name: 'auxLabel'
+              #layout: #(#AlignmentOrigin 107 0 101 0 1 0.5)
+              #activeHelpKey: #detailsAuxValue
+              #translateLabel: true
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'auxInputField'
+              #layout: #(#LayoutFrame 110 0 90 0 -5 1.0 112 0)
+              #activeHelpKey: #detailsAuxValue
+              #tabable: true
+              #model: #auxValue
+              #group: #inputGroup
+              #type: #smalltalkObject
+              #acceptOnReturn: true
+              #acceptOnTab: true
+              #acceptChannel: #acceptChannel
+              #modifiedChannel: #modifiedChannel
             )
            )
          
@@ -2724,6 +2746,7 @@
         argument           := (aspects at:#argument) value.
         translateLabel     := (aspects at:#translateLabel) value.
         isButton           := (aspects at:#isButton) value.
+        auxValue           := (aspects at:#auxValue) value.
 
         argument isString ifTrue:[
             argument size > 1 ifTrue:[
@@ -2779,6 +2802,7 @@
     translateLabel     := anItem translateLabel.
     isButton           := anItem isButton.
     isVisible          := anItem isVisible.
+    auxValue           := anItem auxValue.
 
     (((rtv := anItem adornment) notNil)
     and:[(rtv := rtv labelImage) isKindOf:ResourceRetriever])
@@ -2819,6 +2843,7 @@
         item choiceValue:choiceValue.
         item translateLabel: translateLabel.
         item isButton: isButton.
+        item auxValue: auxValue.
 
         icon notNil ifTrue:[
             rcv := ResourceRetriever new.
@@ -2859,6 +2884,7 @@
         (aspects at:#icon)                 value:icon.
         (aspects at:#iconAndLabel)         value:iconAndLabel.
         (aspects at:#isButton)             value:isButton.
+        (aspects at:#auxValue)             value:auxValue.
 
         (aspects at:#argument)
             value:(argument isSymbol