| changeset 3457 | 3f3ea99e8af5 |
| parent 3456 | 4d4297bad4fa |
| child 3500 | 51cbdcf5b2cb |
| 3456:4d4297bad4fa | 3457:3f3ea99e8af5 |
|---|---|
769 ^ |
769 ^ |
770 #(Menu |
770 #(Menu |
771 ( |
771 ( |
772 (MenuItem |
772 (MenuItem |
773 label: 'Browse Menu Item''s Class' |
773 label: 'Browse Menu Item''s Class' |
774 itemValue: doBrowseMenuItem: |
774 itemValue: doBrowse: |
775 argument: view |
775 argument: menuItem |
776 ) |
776 ) |
777 (MenuItem |
777 (MenuItem |
778 label: '-' |
778 label: '-' |
779 ) |
779 ) |
780 (MenuItem |
780 (MenuItem |
781 label: 'Inspect Menu Item' |
781 label: 'Inspect Menu Item' |
782 itemValue: doInspectMenuItem: |
782 itemValue: doInspect: |
783 argument: view |
783 argument: menuItem |
784 ) |
784 ) |
785 (MenuItem |
785 (MenuItem |
786 label: '-' |
786 label: '-' |
787 ) |
787 ) |
788 (MenuItem |
788 (MenuItem |
1884 item := self selectedMenuItem. |
1884 item := self selectedMenuItem. |
1885 item isNil ifTrue:[^ nil]. |
1885 item isNil ifTrue:[^ nil]. |
1886 |
1886 |
1887 list := OrderedCollection new. |
1887 list := OrderedCollection new. |
1888 |
1888 |
1889 list add:(MenuDesc title:'itemValue' value:(item itemValue)). |
1889 list add:(MenuDesc |
1890 title:'itemValue' |
|
1891 value:(item itemValue) |
|
1892 action:[ |
|
1893 UserPreferences systemBrowserClass |
|
1894 browseImplementorsOf:item itemValue |
|
1895 ]). |
|
1890 |
1896 |
1891 ^ MenuDesc buildFromList:list onGC:aMenu |
1897 ^ MenuDesc buildFromList:list onGC:aMenu |
1892 |
1898 |
1893 "Created: / 16-08-2017 / 13:51:05 / cg" |
1899 "Created: / 16-08-2017 / 13:51:05 / cg" |
1894 ! |
1900 ! |
2081 |
2087 |
2082 |item| |
2088 |item| |
2083 |
2089 |
2084 item := model selectedItem. |
2090 item := model selectedItem. |
2085 item notNil ifTrue:[ ^ item widget ]. |
2091 item notNil ifTrue:[ ^ item widget ]. |
2086 ^ nil |
2092 ^ nil |
2093 |
|
2094 "Modified (format): / 16-08-2017 / 13:57:30 / cg" |
|
2087 ! ! |
2095 ! ! |
2088 |
2096 |
2089 !ViewTreeInspectorApplication methodsFor:'testing'! |
2097 !ViewTreeInspectorApplication methodsFor:'testing'! |
2090 |
2098 |
2091 resolveApplicationClassFor:aTreeItem |
2099 resolveApplicationClassFor:aTreeItem |
2316 self setRootItem:nil. |
2324 self setRootItem:nil. |
2317 ! |
2325 ! |
2318 |
2326 |
2319 objectToInspectOrBrowse:what |
2327 objectToInspectOrBrowse:what |
2320 "return one of: |
2328 "return one of: |
2321 #view inspect view/widget |
2329 #view for inspect/browse view/widget |
2322 #group inspect windowGroup |
2330 #group for inspect/browse windowGroup |
2323 #model inspect model |
2331 #model for inspect/browse model |
2324 #application inspect application |
2332 #application for inspect/browse application |
2325 #controller inspect controller |
2333 #controller for inspect/browse controller |
2326 #process inspect application's process |
2334 #process for inspect/browse application's process |
2327 #widgetClass browse widget's class |
2335 #widgetClass for inspect/browse widget's class |
2336 #menuItem for inspect/browse menuItem |
|
2328 " |
2337 " |
2329 |view| |
2338 |view| |
2339 |
|
2340 what == #menuItem ifTrue:[ |
|
2341 ^ model selectedItem menuItem |
|
2342 ]. |
|
2330 |
2343 |
2331 view := self selectedView. |
2344 view := self selectedView. |
2332 view isNil ifTrue:[^ nil]. |
2345 view isNil ifTrue:[^ nil]. |
2333 |
2346 |
2334 what == #group ifTrue:[ ^ view windowGroup ]. |
2347 what == #group ifTrue:[ ^ view windowGroup ]. |
2339 what == #application ifTrue:[ ^ view application ? view topView ]. |
2352 what == #application ifTrue:[ ^ view application ? view topView ]. |
2340 what == #applicationClass ifTrue:[ ^ view application ? view topView ]. |
2353 what == #applicationClass ifTrue:[ ^ view application ? view topView ]. |
2341 |
2354 |
2342 ^ view |
2355 ^ view |
2343 |
2356 |
2344 "Modified: / 28-08-2013 / 23:58:27 / cg" |
2357 "Modified: / 16-08-2017 / 13:57:36 / cg" |
2345 ! |
2358 ! |
2346 |
2359 |
2347 openDocumentation |
2360 openDocumentation |
2348 HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#VIEWTREEINSPECTOR' |
2361 HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#VIEWTREEINSPECTOR' |
2349 ! |
2362 ! |