equal
deleted
inserted
replaced
3201 acceptChannel: acceptChannel |
3201 acceptChannel: acceptChannel |
3202 modifiedChannel: modifiedChannel |
3202 modifiedChannel: modifiedChannel |
3203 acceptOnPointerLeave: false |
3203 acceptOnPointerLeave: false |
3204 ) |
3204 ) |
3205 (CheckBoxSpec |
3205 (CheckBoxSpec |
|
3206 label: 'Ignore Accelerator (i.e. Display Only)' |
|
3207 name: 'ignoreShortcutKeysInItem' |
|
3208 layout: (AlignmentOrigin 42 0 204 0 0 0.5) |
|
3209 activeHelpKey: detailsIgnoreAcceleratorKeys |
|
3210 visibilityChannel: hasNoSubmenu |
|
3211 model: ignoreShortcutKeys |
|
3212 translateLabel: true |
|
3213 resizeForLabel: true |
|
3214 ) |
|
3215 (CheckBoxSpec |
3206 label: 'Ignore Accelerators in Submenu' |
3216 label: 'Ignore Accelerators in Submenu' |
3207 name: 'ignoreShortcutKeys' |
3217 name: 'ignoreShortcutKeys' |
3208 layout: (AlignmentOrigin 42 0 204 0 0 0.5) |
3218 layout: (AlignmentOrigin 42 0 204 0 0 0.5) |
3209 activeHelpKey: detailsIgnoreAcceleratorKeys |
3219 activeHelpKey: detailsIgnoreAcceleratorKeys |
3210 visibilityChannel: hasSubmenu |
3220 visibilityChannel: hasSubmenu |
3255 true asValue |
3265 true asValue |
3256 ]. |
3266 ]. |
3257 aspects at:#hasSubmenu ifAbsentPut:[ |
3267 aspects at:#hasSubmenu ifAbsentPut:[ |
3258 false asValue |
3268 false asValue |
3259 ]. |
3269 ]. |
|
3270 aspects at:#hasNoSubmenu ifAbsentPut:[ |
|
3271 true asValue |
|
3272 ]. |
3260 ! ! |
3273 ! ! |
3261 |
3274 |
3262 !MenuEditor::Item class methodsFor:'testing'! |
3275 !MenuEditor::Item class methodsFor:'testing'! |
3263 |
3276 |
3264 separatorTypeOf:aString |
3277 separatorTypeOf:aString |
3367 MenuEditor aspects do:[:aKey| |
3380 MenuEditor aspects do:[:aKey| |
3368 (aspects at:aKey) value:(menuItem perform:aKey) |
3381 (aspects at:aKey) value:(menuItem perform:aKey) |
3369 ]. |
3382 ]. |
3370 (aspects at:#notDelayedMenu) value:(self isDelayedMenu not). |
3383 (aspects at:#notDelayedMenu) value:(self isDelayedMenu not). |
3371 (aspects at:#hasSubmenu) value:(self isKindOfMenu or:[self children size ~~ 0]). |
3384 (aspects at:#hasSubmenu) value:(self isKindOfMenu or:[self children size ~~ 0]). |
|
3385 (aspects at:#hasNoSubmenu) value:(self isKindOfMenu not ). |
3372 ! ! |
3386 ! ! |
3373 |
3387 |
3374 !MenuEditor::Item methodsFor:'displaying'! |
3388 !MenuEditor::Item methodsFor:'displaying'! |
3375 |
3389 |
3376 displayLabel |
3390 displayLabel |