equal
deleted
inserted
replaced
1602 ! ! |
1602 ! ! |
1603 |
1603 |
1604 !MenuEditor methodsFor:'accessing'! |
1604 !MenuEditor methodsFor:'accessing'! |
1605 |
1605 |
1606 submenuTest |
1606 submenuTest |
1607 "return submenu assigned to item test" |
1607 "return the submenu assigned to item test; |
1608 |
1608 this is dynamically constructed, to reflect the current |
1609 |menu| |
1609 edited menu." |
|
1610 |
|
1611 |menu cls| |
1610 |
1612 |
1611 (menu := self treeView asMenu) allItemsDo: |
1613 (menu := self treeView asMenu) allItemsDo: |
1612 [:anItem| |
1614 [:anItem| |
1613 anItem value:nil. |
1615 anItem value:nil. |
1614 anItem enabled:true. |
1616 anItem enabled:true. |
1615 ]. |
1617 ]. |
1616 ^menu |
1618 |
|
1619 cls := self resolveName:specClass. |
|
1620 menu findGuiResourcesIn:cls. |
|
1621 ^ menu |
1617 ! |
1622 ! |
1618 |
1623 |
1619 useHelpTool: aHelpTool |
1624 useHelpTool: aHelpTool |
1620 "take the help dictionaries from aHelpTool into my helpTool" |
1625 "take the help dictionaries from aHelpTool into my helpTool" |
1621 |
1626 |