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