equal
deleted
inserted
replaced
3426 !MenuEditor::Item class methodsFor:'interface-editor'! |
3426 !MenuEditor::Item class methodsFor:'interface-editor'! |
3427 |
3427 |
3428 addBindingsTo:aspects for:aMenuEditor |
3428 addBindingsTo:aspects for:aMenuEditor |
3429 "add additional bindings to the aspects |
3429 "add additional bindings to the aspects |
3430 " |
3430 " |
3431 aspects at:#notDelayedMenu ifAbsentPut:[ |
3431 aspects at:#notDelayedMenu ifAbsentPut:[true asValue]. |
3432 true asValue |
3432 aspects at:#hasSubmenu ifAbsentPut:[false asValue]. |
3433 ]. |
3433 aspects at:#hasNoSubmenu ifAbsentPut:[true asValue]. |
3434 aspects at:#hasSubmenu ifAbsentPut:[ |
|
3435 false asValue |
|
3436 ]. |
|
3437 aspects at:#hasNoSubmenu ifAbsentPut:[ |
|
3438 true asValue |
|
3439 ]. |
|
3440 ! ! |
3434 ! ! |
3441 |
3435 |
3442 !MenuEditor::Item class methodsFor:'testing'! |
3436 !MenuEditor::Item class methodsFor:'testing'! |
3443 |
3437 |
3444 separatorTypeOf:aString |
3438 separatorTypeOf:aString |
4037 !MenuEditor::ActionItem class methodsFor:'interface-editor'! |
4031 !MenuEditor::ActionItem class methodsFor:'interface-editor'! |
4038 |
4032 |
4039 addBindingsTo:aspects for:aMenuEditor |
4033 addBindingsTo:aspects for:aMenuEditor |
4040 "add additional bindings to the aspects |
4034 "add additional bindings to the aspects |
4041 " |
4035 " |
4042 aspects at:#indicationEnabled ifAbsentPut:[ |
4036 aspects |
4043 BlockValue with:[:a | a size == 0 ] argument:(aspects at:#choice) |
4037 at:#indicationEnabled |
4044 ]. |
4038 ifAbsentPut:[ BlockValue with:[:a | a size == 0 ] argument:(aspects at:#choice)]. |
4045 |
4039 |
4046 aspects at:#choiceEnabled ifAbsentPut:[ |
4040 aspects |
4047 BlockValue with:[:a | a size == 0 ] argument:(aspects at:#indication) |
4041 at:#choiceEnabled |
4048 ]. |
4042 ifAbsentPut:[ BlockValue with:[:a | a size == 0 ] argument:(aspects at:#indication)]. |
4049 |
4043 |
4050 aspects at:#choiceValueEnabled ifAbsentPut:[ |
4044 aspects |
4051 BlockValue with:[:a | a size ~~ 0 ] argument:(aspects at:#choice) |
4045 at:#choiceValueEnabled |
4052 ]. |
4046 ifAbsentPut:[ BlockValue with:[:a | a size ~~ 0 ] argument:(aspects at:#choice)]. |
4053 aspects at:#hasNoDelayedMenuValue ifAbsentPut:[ |
4047 |
4054 true asValue |
4048 aspects |
4055 ]. |
4049 at:#hasNoDelayedMenuValue |
|
4050 ifAbsentPut:[true asValue]. |
4056 ! ! |
4051 ! ! |
4057 |
4052 |
4058 !MenuEditor::ActionItem methodsFor:'accessing'! |
4053 !MenuEditor::ActionItem methodsFor:'accessing'! |
4059 |
4054 |
4060 menuItem |
4055 menuItem |