equal
deleted
inserted
replaced
3715 aspectAt:aKey put:aValue |
3715 aspectAt:aKey put:aValue |
3716 "set a specific aspect named aKey to the aValue" |
3716 "set a specific aspect named aKey to the aValue" |
3717 |
3717 |
3718 aKey == #rawLabel ifTrue:[ ^ self rawLabel:aValue ]. |
3718 aKey == #rawLabel ifTrue:[ ^ self rawLabel:aValue ]. |
3719 aKey == #submenuChannel ifTrue:[ ^ self ]. |
3719 aKey == #submenuChannel ifTrue:[ ^ self ]. |
3720 menuItem perform:((aKey, ':') asSymbol) with:aValue. |
3720 menuItem perform:(aKey asMutator) with:aValue. |
3721 |
3721 |
3722 "Modified: / 05-09-2006 / 17:47:19 / cg" |
3722 "Modified: / 05-09-2006 / 17:47:19 / cg" |
3723 ! |
3723 ! |
3724 |
3724 |
3725 fromAspects:aspects |
3725 fromAspects:aspects |