equal
deleted
inserted
replaced
1637 ! ! |
1637 ! ! |
1638 |
1638 |
1639 !Object methodsFor:'inspecting'! |
1639 !Object methodsFor:'inspecting'! |
1640 |
1640 |
1641 inspector2TabClass |
1641 inspector2TabClass |
1642 |spec makeView view| |
1642 |makeView| |
1643 |
1643 |
1644 <inspector2Tab> |
1644 <inspector2Tab> |
1645 |
1645 |
1646 "/ spec := #singleClassBrowserSpec. |
|
1647 spec := #multipleClassBrowserSpec. |
|
1648 |
|
1649 makeView := [ |
1646 makeView := [ |
1650 |browser cls canvas| |
1647 |spec view browser cls canvas| |
|
1648 |
|
1649 "/ spec := #singleClassBrowserSpec. |
|
1650 spec := #multipleClassBrowserSpec. |
1651 |
1651 |
1652 cls := self class theNonMetaclass. |
1652 cls := self class theNonMetaclass. |
1653 view isNil ifTrue:[ |
1653 view isNil ifTrue:[ |
1654 browser := Tools::NewSystemBrowser new. |
1654 browser := Tools::NewSystemBrowser new. |
1655 browser isEmbeddedBrowser:true. |
1655 browser isEmbeddedBrowser:true. |
1663 "/ browser showInheritedMethods. |
1663 "/ browser showInheritedMethods. |
1664 browser classListGenerator value:(cls withAllSuperclasses). |
1664 browser classListGenerator value:(cls withAllSuperclasses). |
1665 browser sortByNameAndInheritance value:true. |
1665 browser sortByNameAndInheritance value:true. |
1666 browser selectClass: cls. |
1666 browser selectClass: cls. |
1667 browser selectProtocol: (Tools::BrowserList nameListEntryForALL). |
1667 browser selectProtocol: (Tools::BrowserList nameListEntryForALL). |
1668 |
|
1669 view := ApplicationSubView new client: browser spec: spec. |
1668 view := ApplicationSubView new client: browser spec: spec. |
|
1669 browser navigationState classListApplication addOwnerClasses value:false. |
1670 ]. |
1670 ]. |
1671 view |
1671 view |
1672 ]. |
1672 ]. |
1673 |
1673 |
1674 ^ Tools::Inspector2Tab new |
1674 ^ Tools::Inspector2Tab new |