equal
deleted
inserted
replaced
1925 #view browse class |
1925 #view browse class |
1926 #model browse model class |
1926 #model browse model class |
1927 #application browse application class |
1927 #application browse application class |
1928 #controller browse controller class |
1928 #controller browse controller class |
1929 " |
1929 " |
1930 |view inst| |
1930 |inst| |
1931 |
1931 |
1932 view := self selectedView. |
1932 (inst := self objectToInspectOrBrowse:what) isNil ifTrue:[^ self]. |
1933 view isNil ifTrue:[^ self]. |
1933 inst class browserClass openInClass:(inst class) selector:nil |
1934 |
|
1935 what == #view ifTrue:[ inst := view ] |
|
1936 ifFalse:[what == #model ifTrue:[ inst := view model ] |
|
1937 ifFalse:[what == #application ifTrue:[ inst := view application ] |
|
1938 ifFalse:[what == #controller ifTrue:[ inst := view controller ] |
|
1939 ifFalse:[what == #sensor ifTrue:[ inst := view sensor ] |
|
1940 ifFalse:[what == #group ifTrue:[ inst := view windowGroup ] |
|
1941 ifFalse:[ |
|
1942 ^ self |
|
1943 ]]]]]]. |
|
1944 |
|
1945 inst notNil ifTrue:[ |
|
1946 inst class browserClass openInClass:(inst class) selector:nil |
|
1947 ]. |
|
1948 |
1934 |
1949 "Modified: / 28-08-2013 / 23:57:42 / cg" |
1935 "Modified: / 28-08-2013 / 23:57:42 / cg" |
1950 ! |
1936 ! |
1951 |
1937 |
1952 doCatchEvents |
1938 doCatchEvents |
2016 #model inspect model |
2002 #model inspect model |
2017 #application inspect application |
2003 #application inspect application |
2018 #controller inspect controller |
2004 #controller inspect controller |
2019 #process inspect application's process |
2005 #process inspect application's process |
2020 " |
2006 " |
|
2007 |
2021 |inst| |
2008 |inst| |
2022 |
2009 |
2023 inst := self selectedView. |
2010 (inst := self objectToInspectOrBrowse:what) isNil ifTrue:[^ self]. |
2024 inst isNil ifTrue:[^ self]. |
2011 inst inspect. |
2025 |
|
2026 what == #group ifTrue:[ inst := inst windowGroup ] |
|
2027 ifFalse:[what == #model ifTrue:[ inst := inst model ] |
|
2028 ifFalse:[what == #application ifTrue:[ inst := inst application ] |
|
2029 ifFalse:[what == #controller ifTrue:[ inst := inst controller ] |
|
2030 ifFalse:[what == #process ifTrue:[ inst := inst windowGroup process ] |
|
2031 ifFalse:[what == #sensor ifTrue:[ inst := inst sensor ]]]]]]. |
|
2032 |
|
2033 inst notNil ifTrue:[ inst inspect ]. |
|
2034 |
2012 |
2035 "Modified: / 28-08-2013 / 23:58:27 / cg" |
2013 "Modified: / 28-08-2013 / 23:58:27 / cg" |
2036 ! |
2014 ! |
2037 |
2015 |
2038 doOpenProcessMonitor |
2016 doOpenProcessMonitor |
2139 |
2117 |
2140 doUnpick |
2118 doUnpick |
2141 "release current picked window and contained subwindows" |
2119 "release current picked window and contained subwindows" |
2142 |
2120 |
2143 self setRootItem:nil. |
2121 self setRootItem:nil. |
|
2122 ! |
|
2123 |
|
2124 objectToInspectOrBrowse:what |
|
2125 "return one of: |
|
2126 #view inspect class |
|
2127 #group inspect windowGroup |
|
2128 #model inspect model |
|
2129 #application inspect application |
|
2130 #controller inspect controller |
|
2131 #process inspect application's process |
|
2132 " |
|
2133 |view inst| |
|
2134 |
|
2135 view := self selectedView. |
|
2136 view isNil ifTrue:[^ nil]. |
|
2137 |
|
2138 what == #group ifTrue:[ inst := view windowGroup ] |
|
2139 ifFalse:[what == #model ifTrue:[ inst := view model ] |
|
2140 ifFalse:[what == #application ifTrue:[ inst := view application ] |
|
2141 ifFalse:[what == #controller ifTrue:[ inst := view controller ] |
|
2142 ifFalse:[what == #process ifTrue:[ inst := view windowGroup process ] |
|
2143 ifFalse:[what == #sensor ifTrue:[ inst := view sensor ]]]]]]. |
|
2144 |
|
2145 (inst isNil and:[what == #application]) ifTrue:[ |
|
2146 inst := view topView |
|
2147 ]. |
|
2148 ^ inst |
|
2149 |
|
2150 "Modified: / 28-08-2013 / 23:58:27 / cg" |
2144 ! |
2151 ! |
2145 |
2152 |
2146 openDocumentation |
2153 openDocumentation |
2147 HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#VIEWTREEINSPECTOR' |
2154 HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#VIEWTREEINSPECTOR' |
2148 ! |
2155 ! |