equal
deleted
inserted
replaced
1788 |
1788 |
1789 |node| |
1789 |node| |
1790 |
1790 |
1791 super accept. |
1791 super accept. |
1792 |
1792 |
1793 node := self treeView selectedNode. |
1793 (node := self treeView selectedNode) notNil |
1794 node notNil |
|
1795 ifTrue: |
1794 ifTrue: |
1796 [ |
1795 [ |
1797 self isHelpToolSelected |
1796 self isHelpToolSelected |
1798 ifTrue: |
1797 ifTrue: |
1799 [ |
1798 [ |
1837 |
1836 |
1838 doPickAMenu |
1837 doPickAMenu |
1839 |
1838 |
1840 |view| |
1839 |view| |
1841 |
1840 |
1842 view := Screen current viewFromUser. |
1841 ((view := Screen current viewFromUser) isNil or: |
1843 |
1842 [view == Screen current rootView]) ifTrue:[ |
1844 (view isNil or:[view == Screen current rootView]) ifTrue:[ |
|
1845 ^ self |
1843 ^ self |
1846 ]. |
1844 ]. |
1847 view specClass == MenuPanelSpec ifTrue:[ |
1845 view specClass == MenuPanelSpec ifTrue:[ |
1848 ^ self treeView buildFromMenu: view asMenu |
1846 ^ self treeView buildFromMenu: view asMenu |
1849 ]. |
1847 ]. |
1851 ! |
1849 ! |
1852 |
1850 |
1853 doSave |
1851 doSave |
1854 |cls treeView menu spec mthd category code| |
1852 |cls treeView menu spec mthd category code| |
1855 |
1853 |
1856 super doSave ifTrue: [^nil]. |
1854 super doSave ifFalse: [^nil]. |
1857 |
1855 |
1858 cls := self resolveName: specClass. |
1856 cls := self resolveName: specClass. |
1859 treeView := self treeView. |
1857 treeView := self treeView. |
1860 menu := treeView asMenu. |
1858 menu := treeView asMenu. |
1861 menu := menu literalArrayEncoding. |
1859 menu := menu literalArrayEncoding. |