--- a/extensions.st Fri Apr 22 12:55:23 2016 +0200
+++ b/extensions.st Fri Apr 22 12:59:36 2016 +0200
@@ -1639,15 +1639,15 @@
!Object methodsFor:'inspecting'!
inspector2TabClass
- |spec makeView view|
+ |makeView|
<inspector2Tab>
- "/ spec := #singleClassBrowserSpec.
- spec := #multipleClassBrowserSpec.
-
makeView := [
- |browser cls canvas|
+ |spec view browser cls canvas|
+
+ "/ spec := #singleClassBrowserSpec.
+ spec := #multipleClassBrowserSpec.
cls := self class theNonMetaclass.
view isNil ifTrue:[
@@ -1665,8 +1665,8 @@
browser sortByNameAndInheritance value:true.
browser selectClass: cls.
browser selectProtocol: (Tools::BrowserList nameListEntryForALL).
-
view := ApplicationSubView new client: browser spec: spec.
+ browser navigationState classListApplication addOwnerClasses value:false.
].
view
].