equal
deleted
inserted
replaced
2054 this is dynamically constructed, to reflect the current |
2054 this is dynamically constructed, to reflect the current |
2055 edited menu." |
2055 edited menu." |
2056 |
2056 |
2057 |menu cls| |
2057 |menu cls| |
2058 |
2058 |
2059 (menu := treeView asMenu) allItemsDo:[:anItem| |
2059 menu := treeView asMenu. |
2060 anItem value:nil. |
2060 menu ifNotNil:[ |
2061 anItem enabled:true. |
2061 (menu := treeView asMenu) allItemsDo:[:anItem| |
2062 ]. |
2062 anItem value:nil. |
2063 |
2063 anItem enabled:true. |
2064 cls := self resolveName:specClass. |
2064 ]. |
2065 menu findGuiResourcesIn:cls. |
2065 |
|
2066 cls := self resolveName:specClass. |
|
2067 menu findGuiResourcesIn:cls. |
|
2068 ]. |
2066 ^ menu |
2069 ^ menu |
2067 ! |
2070 ! |
2068 |
2071 |
2069 useHelpTool: aHelpTool |
2072 useHelpTool: aHelpTool |
2070 "take the help dictionaries from aHelpTool into my helpTool" |
2073 "take the help dictionaries from aHelpTool into my helpTool" |