equal
deleted
inserted
replaced
1770 self treeView selection: 2. |
1770 self treeView selection: 2. |
1771 self menuChanged |
1771 self menuChanged |
1772 |
1772 |
1773 ! |
1773 ! |
1774 |
1774 |
1775 openModalOnClass:aClass andSelector:aSelector |
|
1776 |
|
1777 specClass := Association key:aClass value:aSelector. |
|
1778 super openInterfaceModal. |
|
1779 |
|
1780 ! |
|
1781 |
|
1782 openOnClass:aClass andSelector:aSelector |
|
1783 |
|
1784 specClass := Association key:aClass value:aSelector. |
|
1785 super openInterface. |
|
1786 self buildFrom:aClass andSelector:aSelector. |
|
1787 |
|
1788 ! |
|
1789 |
|
1790 postBuildWith:builder |
|
1791 |cls sel| |
|
1792 |
|
1793 super postBuildWith:builder. |
|
1794 |
|
1795 specClass isAssociation ifTrue:[ |
|
1796 cls := specClass key. |
|
1797 sel := specClass value. |
|
1798 |
|
1799 specClass := nil. |
|
1800 |
|
1801 (sel isKindOf:Menu) ifTrue:[ |
|
1802 self buildFrom:cls andSelector:nil. |
|
1803 ^self treeView buildFromMenu:sel. |
|
1804 ] |
|
1805 |
|
1806 ]. |
|
1807 self buildFromClass:cls andSelector:sel |
|
1808 ! |
|
1809 |
|
1810 postOpenWith:aBuilder |
1775 postOpenWith:aBuilder |
1811 |
1776 |
1812 super postOpenWith:aBuilder. |
1777 super postOpenWith:aBuilder. |
1813 |
1778 |
1814 self isHelpToolSelected |
1779 self isHelpToolSelected |