134 'Boolean flag to specify that both image and textual label shall be shown.' |
134 'Boolean flag to specify that both image and textual label shall be shown.' |
135 |
135 |
136 #indication |
136 #indication |
137 'This indication field specifies the name of the aspect (-method or binding) in your application, a value holder holding a boolean, a block which evaluates to either true or false, a selector which returns either true or false or simply true or false. The value, true or false, specifies whether the shown indicator is switched on or off.' |
137 'This indication field specifies the name of the aspect (-method or binding) in your application, a value holder holding a boolean, a block which evaluates to either true or false, a selector which returns either true or false or simply true or false. The value, true or false, specifies whether the shown indicator is switched on or off.' |
138 |
138 |
|
139 #isVisible |
|
140 '' |
|
141 |
139 #label |
142 #label |
140 'The label of the item. If the ''retriever/selector'' is set, and returns an image, the image is used as the displayed label. Dependent on the state of the ''Image & Label'' flag, both the image and the label are shown.' |
143 'The label of the item. If the ''retriever/selector'' is set, and returns an image, the image is used as the displayed label. Dependent on the state of the ''Image & Label'' flag, both the image and the label are shown.' |
141 |
144 |
142 #menuSelector |
145 #menuSelector |
143 'The name of the selector under which the generated menu should be installed and is accessable.' |
146 'The name of the selector under which the generated menu should be installed and is accessable.' |
182 |
185 |
183 #(#FullSpec |
186 #(#FullSpec |
184 #'window:' |
187 #'window:' |
185 #(#WindowSpec |
188 #(#WindowSpec |
186 #'name:' 'unnamed canvas' |
189 #'name:' 'unnamed canvas' |
187 #'layout:' #(#LayoutFrame 170 0 315 0 436 0 633 0) |
190 #'layout:' #(#LayoutFrame 219 0 193 0 485 0 511 0) |
188 #'label:' 'unnamed canvas' |
191 #'label:' 'unnamed canvas' |
189 #'min:' #(#Point 10 10) |
192 #'min:' #(#Point 10 10) |
190 #'max:' #(#Point 1160 870) |
193 #'max:' #(#Point 1160 870) |
191 #'bounds:' #(#Rectangle 170 315 437 634) |
194 #'bounds:' #(#Rectangle 219 193 486 512) |
192 #'usePreferredExtent:' false |
195 #'usePreferredExtent:' false |
193 ) |
196 ) |
194 #'component:' |
197 #'component:' |
195 #(#SpecCollection |
198 #(#SpecCollection |
196 #'collection:' |
199 #'collection:' |
703 #'type:' #symbolOrNil |
706 #'type:' #symbolOrNil |
704 #'acceptOnReturn:' false |
707 #'acceptOnReturn:' false |
705 #'acceptOnTab:' false |
708 #'acceptOnTab:' false |
706 ) |
709 ) |
707 #(#LabelSpec |
710 #(#LabelSpec |
708 #'name:' 'accessCharLabel' |
711 #'name:' 'visibilityLabel' |
709 #'layout:' #(#AlignmentOrigin 217 0 131 0 1 0.5) |
712 #'layout:' #(#AlignmentOrigin 107 0 76 0 1 0.5) |
710 #'label:' 'Access Character Position:' |
713 #'label:' 'Visibility:' |
711 #'adjust:' #right |
714 #'adjust:' #right |
712 #'resizeForLabel:' true |
715 #'resizeForLabel:' true |
713 ) |
716 ) |
714 #(#InputFieldSpec |
717 #(#InputFieldSpec |
715 #'name:' 'accessCharField' |
718 #'name:' 'isVisibleInputField' |
716 #'layout:' #(#LayoutFrame 220 0 120 0 -5 1.0 142 0) |
719 #'layout:' #(#LayoutFrame 110 0 65 0 -5 1.0 87 0) |
717 #'activeHelpKey:' #accessCharaterPos |
720 #'activeHelpKey:' #isVisible |
718 #'tabable:' true |
721 #'tabable:' true |
719 #'model:' #accessCharacterPos |
722 #'model:' #isVisible |
720 #'type:' #numberOrNil |
723 #'type:' #symbolOrNil |
721 #'acceptOnReturn:' false |
724 #'acceptOnReturn:' false |
722 #'acceptOnTab:' false |
725 #'acceptOnTab:' false |
723 ) |
726 ) |
724 #(#LabelSpec |
727 #(#LabelSpec |
725 #'name:' 'StartGroupLabel' |
728 #'name:' 'StartGroupLabel' |
726 #'layout:' #(#AlignmentOrigin 107 0 87 0 1 0.5) |
729 #'layout:' #(#AlignmentOrigin 107 0 111 0 1 0.5) |
727 #'label:' 'Start Group:' |
730 #'label:' 'Start Group:' |
728 #'adjust:' #right |
731 #'adjust:' #right |
729 #'resizeForLabel:' true |
732 #'resizeForLabel:' true |
730 ) |
733 ) |
731 #(#PopUpListSpec |
734 #(#PopUpListSpec |
732 #'name:' 'StartGroupPopUp' |
735 #'name:' 'StartGroupPopUp' |
733 #'layout:' #(#LayoutFrame 110 0 76 0 -5 1.0 98 0) |
736 #'layout:' #(#LayoutFrame 110 0 100 0 -5 1.0 122 0) |
734 #'label:' 'PopUpList' |
737 #'label:' 'PopUpList' |
735 #'model:' #startGroup |
738 #'model:' #startGroup |
736 #'menu:' |
739 #'menu:' |
737 #(nil |
740 #(nil |
738 #right |
741 #right |
739 ) |
742 ) |
740 #'useIndex:' false |
743 #'useIndex:' false |
|
744 ) |
|
745 #(#LabelSpec |
|
746 #'name:' 'accessCharLabel' |
|
747 #'layout:' #(#AlignmentOrigin 217 0 142 0 1 0.5) |
|
748 #'label:' 'Access Character Position:' |
|
749 #'adjust:' #right |
|
750 #'resizeForLabel:' true |
|
751 ) |
|
752 #(#InputFieldSpec |
|
753 #'name:' 'accessCharField' |
|
754 #'layout:' #(#LayoutFrame 220 0 131 0 -5 1.0 153 0) |
|
755 #'activeHelpKey:' #accessCharaterPos |
|
756 #'tabable:' true |
|
757 #'model:' #accessCharacterPos |
|
758 #'type:' #numberOrNil |
|
759 #'acceptOnReturn:' false |
|
760 #'acceptOnTab:' false |
741 ) |
761 ) |
742 ) |
762 ) |
743 ) |
763 ) |
744 ) |
764 ) |
745 ! |
765 ! |
2223 item startGroup:startGroup. |
2244 item startGroup:startGroup. |
2224 item value:value. |
2245 item value:value. |
2225 item indication:indication. |
2246 item indication:indication. |
2226 item translateLabel: translateLabel. |
2247 item translateLabel: translateLabel. |
2227 item isButton: isButton. |
2248 item isButton: isButton. |
|
2249 item isVisible: isVisible. |
2228 |
2250 |
2229 icon notNil ifTrue:[ |
2251 icon notNil ifTrue:[ |
2230 rcv := ResourceRetriever new. |
2252 rcv := ResourceRetriever new. |
2231 rcv className:retriever. |
2253 rcv className:retriever. |
2232 rcv selector:icon. |
2254 rcv selector:icon. |
2260 startGroup := (aspects at:#startGroup) value. |
2282 startGroup := (aspects at:#startGroup) value. |
2261 accessCharacterPos := (aspects at:#accessCharacterPos) value. |
2283 accessCharacterPos := (aspects at:#accessCharacterPos) value. |
2262 argument := (aspects at:#argument) value. |
2284 argument := (aspects at:#argument) value. |
2263 translateLabel := (aspects at:#translateLabel) value. |
2285 translateLabel := (aspects at:#translateLabel) value. |
2264 isButton := (aspects at:#isButton) value. |
2286 isButton := (aspects at:#isButton) value. |
|
2287 isVisible := (aspects at:#isVisible) value. |
2265 |
2288 |
2266 argument isString ifTrue:[ |
2289 argument isString ifTrue:[ |
2267 argument size > 1 ifTrue:[ |
2290 argument size > 1 ifTrue:[ |
2268 (argument at:1) == $# ifTrue:[ |
2291 (argument at:1) == $# ifTrue:[ |
2269 argument := (argument copyFrom:2) asSymbol |
2292 argument := (argument copyFrom:2) asSymbol |
2308 argument := anItem argument. |
2331 argument := anItem argument. |
2309 |
2332 |
2310 submenuChannel := anItem submenuChannel. |
2333 submenuChannel := anItem submenuChannel. |
2311 translateLabel := anItem translateLabel. |
2334 translateLabel := anItem translateLabel. |
2312 isButton := anItem isButton. |
2335 isButton := anItem isButton. |
|
2336 isVisible := anItem isVisible. |
2313 |
2337 |
2314 (((rtv := anItem adornment) notNil) |
2338 (((rtv := anItem adornment) notNil) |
2315 and:[(rtv := rtv labelImage) isKindOf:ResourceRetriever]) |
2339 and:[(rtv := rtv labelImage) isKindOf:ResourceRetriever]) |
2316 ifTrue: |
2340 ifTrue: |
2317 [ |
2341 [ |
2341 (aspects at:#indication) value:indication. |
2365 (aspects at:#indication) value:indication. |
2342 (aspects at:#shortcutKey) value:shortcutKey. |
2366 (aspects at:#shortcutKey) value:shortcutKey. |
2343 (aspects at:#startGroup) value:startGroup. |
2367 (aspects at:#startGroup) value:startGroup. |
2344 (aspects at:#accessCharacterPos) value:accessCharacterPos. |
2368 (aspects at:#accessCharacterPos) value:accessCharacterPos. |
2345 (aspects at:#translateLabel) value:translateLabel. |
2369 (aspects at:#translateLabel) value:translateLabel. |
2346 (aspects at:#isButton) value:isButton. |
|
2347 (aspects at:#submenuChannel) value:submenuChannel. |
2370 (aspects at:#submenuChannel) value:submenuChannel. |
2348 (aspects at:#retriever) value:retriever. |
2371 (aspects at:#retriever) value:retriever. |
2349 (aspects at:#icon) value:icon. |
2372 (aspects at:#icon) value:icon. |
2350 (aspects at:#iconAndLabel) value:iconAndLabel. |
2373 (aspects at:#iconAndLabel) value:iconAndLabel. |
|
2374 (aspects at:#isButton) value:isButton. |
|
2375 (aspects at:#isVisible) value:isVisible. |
|
2376 |
2351 |
2377 |
2352 argument isSymbol |
2378 argument isSymbol |
2353 ifTrue: [(aspects at:#argument)value:'#', argument] |
2379 ifTrue: [(aspects at:#argument)value:'#', argument] |
2354 ifFalse:[(aspects at:#argument)value:argument]. |
2380 ifFalse:[(aspects at:#argument)value:argument]. |
2355 ] |
2381 ] |