diff -r ca500f8698eb -r de091386bbae MenuEditor.st
--- a/MenuEditor.st	Fri Jan 30 04:37:01 1998 +0100
+++ b/MenuEditor.st	Fri Jan 30 12:49:54 1998 +0100
@@ -23,7 +23,7 @@
 Object subclass:#Item
 	instanceVariableNames:'activeHelpKey enabled label value nameKey indication shortcutKey
 		accessCharacterPos retriever icon iconAndLabel submenuChannel
-		argument translateLabel isButton'
+		startGroup argument translateLabel isButton'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:MenuEditor
@@ -660,11 +660,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'unnamed canvas'
-              #'layout:' #(#LayoutFrame 237 0 249 0 495 0 536 0)
+              #'layout:' #(#LayoutFrame 219 0 193 0 477 0 480 0)
               #'label:' 'unnamed canvas'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1280 1024)
-              #'bounds:' #(#Rectangle 237 249 496 537)
+              #'bounds:' #(#Rectangle 219 193 478 481)
               #'usePreferredExtent:' false
           )
           #'component:' 
@@ -707,14 +707,14 @@
                 )
                  #(#LabelSpec
                     #'name:' 'accessCharLabel'
-                    #'layout:' #(#AlignmentOrigin 217 0 90 0 1 0.5)
+                    #'layout:' #(#AlignmentOrigin 217 0 131 0 1 0.5)
                     #'label:' 'Access Character Position:'
                     #'adjust:' #right
                     #'resizeForLabel:' true
                 )
                  #(#InputFieldSpec
                     #'name:' 'accessCharField'
-                    #'layout:' #(#LayoutFrame 220 0 79 0 -5 1.0 101 0)
+                    #'layout:' #(#LayoutFrame 220 0 120 0 -5 1.0 142 0)
                     #'activeHelpKey:' #accessCharaterPos
                     #'tabable:' true
                     #'model:' #accessCharacterPos
@@ -722,6 +722,24 @@
                     #'acceptOnReturn:' false
                     #'acceptOnTab:' false
                 )
+                 #(#LabelSpec
+                    #'name:' 'StartGroupLabel'
+                    #'layout:' #(#AlignmentOrigin 107 0 87 0 1 0.5)
+                    #'label:' 'Start Group:'
+                    #'adjust:' #right
+                    #'resizeForLabel:' true
+                )
+                 #(#PopUpListSpec
+                    #'name:' 'StartGroupPopUp'
+                    #'layout:' #(#LayoutFrame 110 0 76 0 -5 1.0 98 0)
+                    #'label:' 'PopUpList'
+                    #'model:' #startGroup
+                    #'menu:' 
+                     #(nil
+                        #right
+                    )
+                    #'useIndex:' false
+                )
               )
           )
       )
@@ -1795,6 +1813,7 @@
         translateLabel
         isButton
         shortcutKey
+        startGroup
         retriever
         iconAndLabel
         icon
@@ -2192,6 +2211,7 @@
         item submenuChannel:submenuChannel.
         item nameKey:nameKey.
         item shortcutKeyCharacter:shortcutKey.
+        item startGroup:startGroup.
         item value:value.
         item indication:indication.
         item translateLabel: translateLabel.
@@ -2228,6 +2248,7 @@
         nameKey            := (aspects at:#nameKey) value.
         indication         := (aspects at:#indication) value.
         shortcutKey        := (aspects at:#shortcutKey) value.
+        startGroup         := (aspects at:#startGroup) value.
         accessCharacterPos := (aspects at:#accessCharacterPos) value.
         argument           := (aspects at:#argument) value.
         translateLabel     := (aspects at:#translateLabel) value.
@@ -2273,6 +2294,7 @@
 
     nameKey            := anItem nameKey.
     shortcutKey        := anItem shortcutKeyCharacter.
+    startGroup         := anItem startGroup.
     accessCharacterPos := anItem accessCharacterPosition.
     argument           := anItem argument.
     submenuChannel     := anItem submenuChannel.
@@ -2308,6 +2330,7 @@
         (aspects at:#nameKey)              value:nameKey.
         (aspects at:#indication)           value:indication.
         (aspects at:#shortcutKey)          value:shortcutKey.
+        (aspects at:#startGroup)           value:startGroup.
         (aspects at:#accessCharacterPos)   value:accessCharacterPos.
         (aspects at:#translateLabel)       value:translateLabel.
         (aspects at:#isButton)             value:isButton.