equal
deleted
inserted
replaced
759 |app| |
759 |app| |
760 |
760 |
761 app := self new. |
761 app := self new. |
762 app open. |
762 app open. |
763 app doPickView. |
763 app doPickView. |
|
764 ! |
|
765 |
|
766 openOn:aView |
|
767 "show a particular window's topView hierarchy, |
|
768 select the given view" |
|
769 |
|
770 |app| |
|
771 |
|
772 app := self new. |
|
773 app open. |
|
774 app showWindow:aView. |
764 ! ! |
775 ! ! |
765 |
776 |
766 !ViewTreeInspectorApplication methodsFor:'actions'! |
777 !ViewTreeInspectorApplication methodsFor:'actions'! |
767 |
778 |
768 indicatorClicked:anIndex |
779 indicatorClicked:anIndex |
1777 or:[topWindow == self window topView] |
1788 or:[topWindow == self window topView] |
1778 ) ifTrue:[ |
1789 ) ifTrue:[ |
1779 ^ self |
1790 ^ self |
1780 ]. |
1791 ]. |
1781 |
1792 |
1782 model catchEvents:true. |
1793 self showWindow:clickedView |
1783 self setRootItem:(ViewTreeItem buildViewsFrom:topWindow). |
|
1784 self selectView:clickedView. |
|
1785 ! |
1794 ! |
1786 |
1795 |
1787 doRedraw |
1796 doRedraw |
1788 "redraw the app" |
1797 "redraw the app" |
1789 |
1798 |
1853 self setRootItem:nil. |
1862 self setRootItem:nil. |
1854 ! |
1863 ! |
1855 |
1864 |
1856 openDocumentation |
1865 openDocumentation |
1857 HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#VIEWTREEINSPECTOR' |
1866 HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#VIEWTREEINSPECTOR' |
|
1867 ! |
|
1868 |
|
1869 showWindow:aView |
|
1870 "show a particular window's topView hierarchy, |
|
1871 select the given view" |
|
1872 |
|
1873 | topWindow | |
|
1874 |
|
1875 topWindow := aView topView. |
|
1876 |
|
1877 model catchEvents:true. |
|
1878 self setRootItem:(ViewTreeItem buildViewsFrom:topWindow). |
|
1879 self selectView:aView. |
1858 ! ! |
1880 ! ! |
1859 |
1881 |
1860 !ViewTreeInspectorApplication::MenuDesc class methodsFor:'building'! |
1882 !ViewTreeInspectorApplication::MenuDesc class methodsFor:'building'! |
1861 |
1883 |
1862 buildFromList:aList onGC:aMenu |
1884 buildFromList:aList onGC:aMenu |