class tab code
authorClaus Gittinger <cg@exept.de>
Fri, 22 Apr 2016 12:59:36 +0200
changeset 16311 5bd39aece69d
parent 16310 431559157925
child 16312 e4480574be19
class tab code
extensions.st
--- 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
     ].