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