diff -r 14088f998b72 -r 96728cae02c4 MenuEditor.st --- 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