--- a/MenuEditor.st Mon Aug 17 10:22:40 1998 +0200
+++ b/MenuEditor.st Tue Aug 18 16:21:45 1998 +0200
@@ -171,7 +171,13 @@
'An argument passed to above selector, if it is a 1 or a 2 argument selector.'
#basicsIndication
-'A boolean value holder, a boolean evaluating block, or a boolean returning selector for specifying indication state.'
+'A boolean holder, a boolean block, or a boolean method, specifying the indication state.'
+
+#basicsChoice
+'A boolean holder, a boolean block, or a boolean method, specifying the choices state.'
+
+#basicsChoiceValue
+'That choices value (typically number or symbol).'
#basicsIsButton
'Turns on/off a button behavior.'
@@ -179,6 +185,9 @@
#basicsLabel
'Label of the item.'
+#basicsKey
+'Internal key of the item (optional, for programmed accesses).'
+
#basicsMenu
'A value holder providing the sub menu to be opened if item is selected.'
@@ -206,6 +215,9 @@
#detailsEnabled
'Aspect or binding providing a boolean value holder for the enable-state of the menu item.'
+#detailsStartGroup
+'Specify start of a right-aligned item group.'
+
#detailsVisibility
'Aspect or binding providing a boolean value holder for the visibility-state of the menu item.'
@@ -237,13 +249,16 @@
'Class implementing the image resource method. If no class is given, the current application class will be taken.'
#imageSelector
-'Selector returning an image.'
+'Selector returning an image (sent to above or the application).'
+
+#imageImageList
+'Currently existing image resources.'
#test
'Displays the current menu (layout test).'
)
- "Modified: / 8.8.1998 / 02:37:32 / cg"
+ "Modified: / 18.8.1998 / 16:19:13 / cg"
! !
!MenuEditor class methodsFor:'image specs'!
@@ -352,6 +367,7 @@
#(#LabelSpec
#name: 'nameKeyLabel'
#layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
+ #activeHelpKey: #basicsKey
#label: 'Name Key:'
#adjust: #right
#resizeForLabel: true
@@ -359,6 +375,7 @@
#(#InputFieldSpec
#name: 'nameKeyField'
#layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
+ #activeHelpKey: #basicsKey
#tabable: true
#model: #nameKey
#group: #inputGroup
@@ -369,6 +386,7 @@
#(#LabelSpec
#name: 'labelLabel'
#layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
+ #activeHelpKey: #basicsLabel
#label: 'Label:'
#adjust: #right
#resizeForLabel: true
@@ -385,6 +403,7 @@
)
#(#LabelSpec
#name: 'valueLabel'
+ #activeHelpKey: #basicsAction
#layout: #(#AlignmentOrigin 107 0 90 0 1 0.5)
#label: 'Action:'
#adjust: #right
@@ -404,6 +423,7 @@
#(#LabelSpec
#name: 'argumentLabel'
#layout: #(#AlignmentOrigin 107 0 115 0 1 0.5)
+ #activeHelpKey: #basicsArgument
#label: 'Argument:'
#adjust: #right
#resizeForLabel: true
@@ -422,6 +442,7 @@
#(#LabelSpec
#name: 'indicationLabel'
#layout: #(#AlignmentOrigin 107 0 155 0 1 0.5)
+ #activeHelpKey: #basicsIndication
#label: 'Indication:'
#adjust: #right
#resizeForLabel: true
@@ -457,6 +478,7 @@
#(#LabelSpec
#name: 'choiceLabel'
#layout: #(#AlignmentOrigin 107 0 180 0 1 0.5)
+ #activeHelpKey: #basicsChoice
#label: 'Choice:'
#translateLabel: true
#adjust: #right
@@ -465,7 +487,7 @@
#(#InputFieldSpec
#name: 'choiceField'
#layout: #(#LayoutFrame 110 0 169 0 -5 1.0 191 0)
- #activeHelpKey: #basicsIndication
+ #activeHelpKey: #basicsChoice
#enableChannel: #choiceEnabled
#tabable: true
#model: #choice
@@ -476,6 +498,7 @@
)
#(#LabelSpec
#name: 'choiceValueLabel'
+ #activeHelpKey: #basicsChoiceValue
#layout: #(#AlignmentOrigin 107 0 205 0 1 0.5)
#label: 'Value:'
#translateLabel: true
@@ -485,7 +508,7 @@
#(#InputFieldSpec
#name: 'choiceValueField'
#layout: #(#LayoutFrame 110 0 194 0 -5 1.0 216 0)
- #activeHelpKey: #basicsIndication
+ #activeHelpKey: #basicsChoiceValue
#enableChannel: #choiceValueEnabled
#tabable: true
#model: #choiceValue
@@ -501,7 +524,7 @@
)
)
- "Modified: / 14.8.1998 / 15:43:35 / cg"
+ "Modified: / 18.8.1998 / 16:20:26 / cg"
!
basicsLinkSpec
@@ -859,6 +882,7 @@
#(#LabelSpec
#name: 'shortcutKeyLabel'
#layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
+ #activeHelpKey: #detailsAccelerator
#label: 'Accelerator:'
#adjust: #right
#resizeForLabel: true
@@ -877,6 +901,7 @@
#(#LabelSpec
#name: 'enabledLabel'
#layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
+ #activeHelpKey: #detailsEnabled
#label: 'Enabled:'
#adjust: #right
#resizeForLabel: true
@@ -895,6 +920,7 @@
#(#LabelSpec
#name: 'visibilityLabel'
#layout: #(#AlignmentOrigin 107 0 76 0 1 0.5)
+ #activeHelpKey: #detailsVisibility
#label: 'Visibility:'
#adjust: #right
#resizeForLabel: true
@@ -913,12 +939,14 @@
#(#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
@@ -932,6 +960,7 @@
#(#LabelSpec
#name: 'accessCharLabel'
#layout: #(#AlignmentOrigin 217 0 142 0 1 0.5)
+ #activeHelpKey: #detailsAccessCharaterPosition
#label: 'Access Character Position:'
#adjust: #right
#resizeForLabel: true
@@ -951,7 +980,7 @@
)
)
- "Modified: / 31.7.1998 / 01:18:43 / cg"
+ "Modified: / 18.8.1998 / 16:16:46 / cg"
!
imageEditSpec
@@ -996,6 +1025,7 @@
#(#LabelSpec
#name: 'retrieverLabel'
#layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
+ #activeHelpKey: #imageRetriever
#label: 'Retriever:'
#adjust: #right
#resizeForLabel: true
@@ -1014,6 +1044,7 @@
#(#LabelSpec
#name: 'iconLabel'
#layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
+ #activeHelpKey: #imageSelector
#label: 'Selector:'
#adjust: #right
#resizeForLabel: true
@@ -1039,6 +1070,7 @@
)
#(#SequenceViewSpec
#name: 'systemOrUserImagesList'
+ #activeHelpKey: #imageImageList
#layout: #(#LayoutFrame 110 0 67 0 0 0.6 200 0)
#model: #selectionOfImage
#menu: #menuEditImage
@@ -1054,7 +1086,7 @@
)
)
- "Modified: / 31.7.1998 / 01:18:50 / cg"
+ "Modified: / 18.8.1998 / 16:17:59 / cg"
!
windowSpec