equal
deleted
inserted
replaced
29 |
29 |
30 Object subclass:#Item |
30 Object subclass:#Item |
31 instanceVariableNames:'activeHelpKey enabled label value nameKey indication shortcutKey |
31 instanceVariableNames:'activeHelpKey enabled label value nameKey indication shortcutKey |
32 accessCharacterPos retriever icon iconAndLabel submenuChannel |
32 accessCharacterPos retriever icon iconAndLabel submenuChannel |
33 startGroup argument translateLabel isButton isVisible choice |
33 startGroup argument translateLabel isButton isVisible choice |
34 choiceValue auxValue hideMenuOnActivated |
34 choiceValue auxValue hideMenuOnActivated font |
35 showBusyCursorWhilePerforming' |
35 showBusyCursorWhilePerforming' |
36 classVariableNames:'' |
36 classVariableNames:'' |
37 poolDictionaries:'' |
37 poolDictionaries:'' |
38 privateIn:MenuEditor |
38 privateIn:MenuEditor |
39 ! |
39 ! |
115 |
115 |
116 ^#( |
116 ^#( |
117 label |
117 label |
118 accessCharacterPos |
118 accessCharacterPos |
119 showBusyCursorWhilePerforming |
119 showBusyCursorWhilePerforming |
|
120 font |
120 argument |
121 argument |
121 submenuChannel |
122 submenuChannel |
122 enabled |
123 enabled |
123 value |
124 value |
124 nameKey |
125 nameKey |
946 #(#WindowSpec |
947 #(#WindowSpec |
947 #label: 'Details Edit' |
948 #label: 'Details Edit' |
948 #name: 'Details Edit' |
949 #name: 'Details Edit' |
949 #min: #(#Point 10 10) |
950 #min: #(#Point 10 10) |
950 #max: #(#Point 1280 1024) |
951 #max: #(#Point 1280 1024) |
951 #bounds: #(#Rectangle 670 329 985 613) |
952 #bounds: #(#Rectangle 12 22 327 306) |
952 ) |
953 ) |
953 #component: |
954 #component: |
954 #(#SpecCollection |
955 #(#SpecCollection |
955 #collection: #( |
956 #collection: #( |
956 #(#LabelSpec |
957 #(#LabelSpec |
1083 #acceptOnReturn: true |
1084 #acceptOnReturn: true |
1084 #acceptOnTab: true |
1085 #acceptOnTab: true |
1085 #acceptChannel: #acceptChannel |
1086 #acceptChannel: #acceptChannel |
1086 #modifiedChannel: #modifiedChannel |
1087 #modifiedChannel: #modifiedChannel |
1087 #acceptOnPointerLeave: false |
1088 #acceptOnPointerLeave: false |
|
1089 ) |
|
1090 #(#LabelSpec |
|
1091 #label: 'Font:' |
|
1092 #name: 'fontLabel' |
|
1093 #layout: #(#AlignmentOrigin 75 0 231 0 1 0.5) |
|
1094 #resizeForLabel: true |
|
1095 #adjust: #right |
|
1096 ) |
|
1097 #(#FontMenuSpec |
|
1098 #attributes: |
|
1099 #(#tabable |
|
1100 true |
|
1101 ) |
|
1102 #name: 'fontMenu' |
|
1103 #layout: #(#LayoutFrame 78 0 220 0 -5 1.0 242 0) |
|
1104 #activeHelpKey: #fontMenu |
|
1105 #model: #font |
1088 ) |
1106 ) |
1089 ) |
1107 ) |
1090 |
1108 |
1091 ) |
1109 ) |
1092 ) |
1110 ) |
3265 choiceValue := (aspects at:#choiceValue) value. |
3283 choiceValue := (aspects at:#choiceValue) value. |
3266 shortcutKey := (aspects at:#shortcutKey) value. |
3284 shortcutKey := (aspects at:#shortcutKey) value. |
3267 startGroup := (aspects at:#startGroup) value. |
3285 startGroup := (aspects at:#startGroup) value. |
3268 accessCharacterPos := (aspects at:#accessCharacterPos) value. |
3286 accessCharacterPos := (aspects at:#accessCharacterPos) value. |
3269 showBusyCursorWhilePerforming := (aspects at:#showBusyCursorWhilePerforming) value. |
3287 showBusyCursorWhilePerforming := (aspects at:#showBusyCursorWhilePerforming) value. |
|
3288 font := (aspects at:#font) value. |
3270 argument := (aspects at:#argument) value. |
3289 argument := (aspects at:#argument) value. |
3271 translateLabel := (aspects at:#translateLabel) value. |
3290 translateLabel := (aspects at:#translateLabel) value. |
3272 isButton := (aspects at:#isButton) value. |
3291 isButton := (aspects at:#isButton) value. |
3273 auxValue := (aspects at:#auxValue) value. |
3292 auxValue := (aspects at:#auxValue) value. |
3274 |
3293 |
3319 nameKey := anItem nameKey. |
3338 nameKey := anItem nameKey. |
3320 shortcutKey := anItem shortcutKeyCharacter. |
3339 shortcutKey := anItem shortcutKeyCharacter. |
3321 startGroup := anItem startGroup. |
3340 startGroup := anItem startGroup. |
3322 accessCharacterPos := anItem accessCharacterPosition. |
3341 accessCharacterPos := anItem accessCharacterPosition. |
3323 showBusyCursorWhilePerforming := anItem showBusyCursorWhilePerforming. |
3342 showBusyCursorWhilePerforming := anItem showBusyCursorWhilePerforming. |
|
3343 font := anItem font. |
3324 argument := anItem argument. |
3344 argument := anItem argument. |
3325 |
3345 |
3326 submenuChannel := anItem submenuChannel. |
3346 submenuChannel := anItem submenuChannel. |
3327 translateLabel := anItem translateLabel. |
3347 translateLabel := anItem translateLabel. |
3328 isButton := anItem isButton. |
3348 isButton := anItem isButton. |
3358 self isSeparator ifFalse:[ |
3378 self isSeparator ifFalse:[ |
3359 item activeHelpKey:activeHelpKey. |
3379 item activeHelpKey:activeHelpKey. |
3360 item enabled:enabled. |
3380 item enabled:enabled. |
3361 item accessCharacterPosition:accessCharacterPos. |
3381 item accessCharacterPosition:accessCharacterPos. |
3362 item showBusyCursorWhilePerforming:showBusyCursorWhilePerforming. |
3382 item showBusyCursorWhilePerforming:showBusyCursorWhilePerforming. |
|
3383 item font:font. |
3363 item argument:argument. |
3384 item argument:argument. |
3364 item submenuChannel:submenuChannel. |
3385 item submenuChannel:submenuChannel. |
3365 item nameKey:nameKey. |
3386 item nameKey:nameKey. |
3366 item shortcutKeyCharacter:shortcutKey. |
3387 item shortcutKeyCharacter:shortcutKey. |
3367 item startGroup:startGroup. |
3388 item startGroup:startGroup. |
3405 (aspects at:#choiceValue) value:choiceValue. |
3426 (aspects at:#choiceValue) value:choiceValue. |
3406 (aspects at:#shortcutKey) value:shortcutKey. |
3427 (aspects at:#shortcutKey) value:shortcutKey. |
3407 (aspects at:#startGroup) value:startGroup. |
3428 (aspects at:#startGroup) value:startGroup. |
3408 (aspects at:#accessCharacterPos) value:accessCharacterPos. |
3429 (aspects at:#accessCharacterPos) value:accessCharacterPos. |
3409 (aspects at:#showBusyCursorWhilePerforming) value:showBusyCursorWhilePerforming. |
3430 (aspects at:#showBusyCursorWhilePerforming) value:showBusyCursorWhilePerforming. |
|
3431 (aspects at:#font) value:font. |
3410 (aspects at:#translateLabel) value:translateLabel. |
3432 (aspects at:#translateLabel) value:translateLabel. |
3411 (aspects at:#submenuChannel) value:submenuChannel. |
3433 (aspects at:#submenuChannel) value:submenuChannel. |
3412 (aspects at:#retriever) value:retriever. |
3434 (aspects at:#retriever) value:retriever. |
3413 (aspects at:#icon) value:icon. |
3435 (aspects at:#icon) value:icon. |
3414 (aspects at:#iconAndLabel) value:iconAndLabel. |
3436 (aspects at:#iconAndLabel) value:iconAndLabel. |