equal
deleted
inserted
replaced
388 #(#InputFieldSpec |
388 #(#InputFieldSpec |
389 #'name:' 'argumentField' |
389 #'name:' 'argumentField' |
390 #'layout:' #(#LayoutFrame 110 0 90 0 -5 1.0 112 0) |
390 #'layout:' #(#LayoutFrame 110 0 90 0 -5 1.0 112 0) |
391 #'activeHelpKey:' #submenuChannel |
391 #'activeHelpKey:' #submenuChannel |
392 #'tabable:' true |
392 #'tabable:' true |
393 #'model:' #submenuArgument |
393 #'model:' #argument |
394 #'type:' #symbolOrNil |
|
395 #'acceptOnReturn:' false |
394 #'acceptOnReturn:' false |
396 #'acceptOnTab:' false |
395 #'acceptOnTab:' false |
397 ) |
396 ) |
398 #(#CheckBoxSpec |
397 #(#CheckBoxSpec |
399 #'name:' 'translateLabelCheckBox' |
398 #'name:' 'translateLabelCheckBox' |
1810 #( |
1809 #( |
1811 label |
1810 label |
1812 accessCharacterPos |
1811 accessCharacterPos |
1813 argument |
1812 argument |
1814 submenuChannel |
1813 submenuChannel |
1815 submenuArgument |
|
1816 enabled |
1814 enabled |
1817 value |
1815 value |
1818 nameKey |
1816 nameKey |
1819 indication |
1817 indication |
1820 translateLabel |
1818 translateLabel |
1864 ! |
1862 ! |
1865 |
1863 |
1866 postBuildWith:builder |
1864 postBuildWith:builder |
1867 |cls sel| |
1865 |cls sel| |
1868 |
1866 |
|
1867 super postBuildWith:builder. |
|
1868 |
1869 didInstall := false. |
1869 didInstall := false. |
1870 isModified := false. |
1870 isModified := false. |
1871 |
1871 |
1872 specClass isAssociation ifTrue:[ |
1872 specClass isAssociation ifTrue:[ |
1873 cls := specClass key. |
1873 cls := specClass key. |
1883 ]. |
1883 ]. |
1884 self buildFrom:cls andSelector:sel |
1884 self buildFrom:cls andSelector:sel |
1885 ! |
1885 ! |
1886 |
1886 |
1887 postOpenWith:aBuilder |
1887 postOpenWith:aBuilder |
|
1888 |
|
1889 super postOpenWith:aBuilder. |
1888 |
1890 |
1889 self isHelpToolSelected |
1891 self isHelpToolSelected |
1890 ifTrue: [helpCanvas raise] |
1892 ifTrue: [helpCanvas raise] |
1891 ifFalse: [specCanvas raise] |
1893 ifFalse: [specCanvas raise] |
1892 ! ! |
1894 ! ! |
2302 nameKey := anItem nameKey. |
2304 nameKey := anItem nameKey. |
2303 shortcutKey := anItem shortcutKeyCharacter. |
2305 shortcutKey := anItem shortcutKeyCharacter. |
2304 startGroup := anItem startGroup. |
2306 startGroup := anItem startGroup. |
2305 accessCharacterPos := anItem accessCharacterPosition. |
2307 accessCharacterPos := anItem accessCharacterPosition. |
2306 argument := anItem argument. |
2308 argument := anItem argument. |
|
2309 |
2307 submenuChannel := anItem submenuChannel. |
2310 submenuChannel := anItem submenuChannel. |
2308 translateLabel := anItem translateLabel. |
2311 translateLabel := anItem translateLabel. |
2309 isButton := anItem isButton. |
2312 isButton := anItem isButton. |
2310 |
2313 |
2311 (((rtv := anItem adornment) notNil) |
2314 (((rtv := anItem adornment) notNil) |
2343 (aspects at:#isButton) value:isButton. |
2346 (aspects at:#isButton) value:isButton. |
2344 (aspects at:#submenuChannel) value:submenuChannel. |
2347 (aspects at:#submenuChannel) value:submenuChannel. |
2345 (aspects at:#retriever) value:retriever. |
2348 (aspects at:#retriever) value:retriever. |
2346 (aspects at:#icon) value:icon. |
2349 (aspects at:#icon) value:icon. |
2347 (aspects at:#iconAndLabel) value:iconAndLabel. |
2350 (aspects at:#iconAndLabel) value:iconAndLabel. |
|
2351 |
2348 argument isSymbol |
2352 argument isSymbol |
2349 ifTrue: [(aspects at:#argument)value:'#', argument] |
2353 ifTrue: [(aspects at:#argument)value:'#', argument] |
2350 ifFalse:[(aspects at:#argument)value:argument]. |
2354 ifFalse:[(aspects at:#argument)value:argument]. |
2351 ] |
2355 ] |
2352 ! ! |
2356 ! ! |