1305 " |
1305 " |
1306 ! ! |
1306 ! ! |
1307 |
1307 |
1308 !Object methodsFor:'inspecting'! |
1308 !Object methodsFor:'inspecting'! |
1309 |
1309 |
|
1310 inspector2TabClass |
|
1311 |spec makeView view| |
|
1312 |
|
1313 <inspector2Tab> |
|
1314 |
|
1315 "/ spec := #singleClassBrowserSpec. |
|
1316 spec := #multipleClassBrowserSpec. |
|
1317 |
|
1318 makeView := [ |
|
1319 |browser cls canvas| |
|
1320 |
|
1321 cls := self class theNonMetaclass. |
|
1322 view isNil ifTrue:[ |
|
1323 browser := Tools::NewSystemBrowser new. |
|
1324 browser isEmbeddedBrowser:true. |
|
1325 browser createBuilder. |
|
1326 browser navigationState canvasType:spec. |
|
1327 browser browserCanvasType:spec. |
|
1328 canvas := browser browserCanvas value. |
|
1329 canvas builder:(browser builder). |
|
1330 browser navigationState canvas:canvas. |
|
1331 "/ browser switchToClassHierarchyView. |
|
1332 "/ browser showInheritedMethods. |
|
1333 browser classListGenerator value:(cls withAllSuperclasses). |
|
1334 browser sortByNameAndInheritance value:true. |
|
1335 browser selectClass: cls. |
|
1336 browser selectProtocol: (Tools::BrowserList nameListEntryForALL). |
|
1337 |
|
1338 view := ApplicationSubView new client: browser spec: spec. |
|
1339 ]. |
|
1340 view |
|
1341 ]. |
|
1342 |
|
1343 ^ Tools::Inspector2Tab new |
|
1344 priority: 0; |
|
1345 label:'Class'; |
|
1346 viewHolder: makeView; |
|
1347 yourself |
|
1348 |
|
1349 "Created: / 03-02-2015 / 11:00:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1350 ! ! |
|
1351 |
|
1352 !Object methodsFor:'inspecting'! |
|
1353 |
1310 inspector2TabCommon |
1354 inspector2TabCommon |
1311 "a tab, showing the old inspector" |
1355 "a tab, showing the old inspector" |
1312 |
1356 |
1313 ^ self inspector2TabForInspectorClass |
1357 ^ self inspector2TabForInspectorClass |
1314 |
1358 |
2375 ! ! |
2419 ! ! |
2376 |
2420 |
2377 !stx_libtool class methodsFor:'documentation'! |
2421 !stx_libtool class methodsFor:'documentation'! |
2378 |
2422 |
2379 extensionsVersion_CVS |
2423 extensionsVersion_CVS |
2380 ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.136 2015-01-31 23:42:10 cg Exp $' |
2424 ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.137 2015-02-03 11:18:00 vrany Exp $' |
2381 ! ! |
2425 ! ! |
2382 |
2426 |
2383 !stx_libtool class methodsFor:'documentation'! |
2427 !stx_libtool class methodsFor:'documentation'! |
2384 |
2428 |
2385 extensionsVersion_HG |
2429 extensionsVersion_HG |