equal
deleted
inserted
replaced
1722 (cls respondsTo:aSelector) ifTrue:[ |
1722 (cls respondsTo:aSelector) ifTrue:[ |
1723 menu := cls perform: aSelector. |
1723 menu := cls perform: aSelector. |
1724 ]. |
1724 ]. |
1725 |
1725 |
1726 menu notNil ifTrue:[ |
1726 menu notNil ifTrue:[ |
1727 (menu isMemberOf:Menu) ifFalse:[ |
1727 (menu isCollection) ifTrue:[ |
1728 menu := Menu decodeFromLiteralArray:menu |
1728 menu := Menu decodeFromLiteralArray:menu |
1729 ]. |
1729 ]. |
1730 ] |
1730 ] |
1731 ]. |
1731 ]. |
1732 ]. |
1732 ]. |
1733 self buildFromMenu:menu selector:aSelector. |
1733 self buildFromMenu:menu selector:aSelector. |
1734 self clearModified. |
1734 self clearModified. |
1735 |
1735 |
1736 "Modified: / 27-03-2007 / 08:45:17 / cg" |
1736 "Modified: / 27-03-2007 / 11:16:47 / cg" |
1737 ! ! |
1737 ! ! |
1738 |
1738 |
1739 !MenuEditor methodsFor:'change & update'! |
1739 !MenuEditor methodsFor:'change & update'! |
1740 |
1740 |
1741 selectedSuperItems |
1741 selectedSuperItems |