48 makeView := |
48 makeView := |
49 [ |
49 [ |
50 |spec browser navigationState canvas| |
50 |spec browser navigationState canvas| |
51 |
51 |
52 |
52 |
53 view isNil ifTrue:[ |
53 (view isNil ifTrue:[ |
54 "/ spec := #singleClassBrowserSpec. |
54 "/ spec := #singleClassBrowserSpec. |
55 spec := #multipleClassBrowserSpec. |
55 spec := #multipleClassBrowserSpec. |
56 |
56 |
57 browser := Tools::NewSystemBrowser new. |
57 browser := Tools::NewSystemBrowser new. |
58 browser isEmbeddedBrowser:true. |
58 browser isEmbeddedBrowser:true. |
66 canvas builder:(browser builder). |
66 canvas builder:(browser builder). |
67 navigationState canvas:canvas. |
67 navigationState canvas:canvas. |
68 "/ browser switchToClassHierarchyView. |
68 "/ browser switchToClassHierarchyView. |
69 "/ browser showInheritedMethods. |
69 "/ browser showInheritedMethods. |
70 |
70 |
71 browser classListGenerator value:(aClass withAllSuperclasses). |
71 navigationState classList value:(aClass theNonMetaclass withAllSuperclasses). |
|
72 navigationState meta value:(aClass isMetaclass). |
|
73 browser classListGenerator value:(aClass theNonMetaclass withAllSuperclasses). |
72 browser sortByNameAndInheritance value:true. |
74 browser sortByNameAndInheritance value:true. |
73 browser |
75 browser |
74 selectClass:aClass; |
76 selectClass:aClass; |
75 selectProtocol: (Tools::BrowserList nameListEntryForALL). |
77 selectProtocol: (Tools::BrowserList nameListEntryForALL). |
76 initialSelectorOrNil notNil ifTrue:[ |
78 browser switchToClass:aClass selector:initialSelectorOrNil updateHistory: false. |
77 browser selectMethod:(aClass compiledMethodAt:initialSelectorOrNil). |
|
78 ]. |
|
79 view := ApplicationSubView new client: browser spec: spec. |
79 view := ApplicationSubView new client: browser spec: spec. |
|
80 "/ sigh must be done after postbuild |
80 navigationState classListApplication addOwnerClasses value:false. |
81 navigationState classListApplication addOwnerClasses value:false. |
81 ]. |
82 ]). |
82 view |
83 view |
83 ]. |
84 ]. |
84 |
85 |
85 ^ self new |
86 ^ self new |
86 priority: 0; |
87 priority: 0; |
87 label:label; |
88 label:label; |
88 viewHolder: makeView; |
89 viewHolder: makeView; |
89 yourself |
90 yourself |
|
91 |
|
92 " |
|
93 GenericToolbarIconLibrary systemBrowserIcon inspect |
|
94 " |
90 ! ! |
95 ! ! |
91 |
96 |
92 !Inspector2Tab methodsFor:'accessing'! |
97 !Inspector2Tab methodsFor:'accessing'! |
93 |
98 |
94 application |
99 application |