Tools__Inspector2Tab.st
changeset 17266 86241d1b895d
parent 17265 60e2286680a6
child 17379 028adf14bc05
child 17386 e56a6c5f1c59
--- a/Tools__Inspector2Tab.st	Wed Jan 25 16:10:02 2017 +0100
+++ b/Tools__Inspector2Tab.st	Wed Jan 25 16:49:19 2017 +0100
@@ -50,7 +50,7 @@
             |spec browser navigationState canvas|
 
 
-            view isNil ifTrue:[
+            (view isNil ifTrue:[
                 "/ spec := #singleClassBrowserSpec.
                 spec := #multipleClassBrowserSpec.
 
@@ -68,17 +68,18 @@
                 "/ browser switchToClassHierarchyView.
                 "/ browser showInheritedMethods.
 
-                browser classListGenerator value:(aClass withAllSuperclasses).
+                navigationState classList value:(aClass theNonMetaclass withAllSuperclasses).
+                navigationState meta value:(aClass isMetaclass).
+                browser classListGenerator value:(aClass theNonMetaclass withAllSuperclasses).
                 browser sortByNameAndInheritance value:true.
                 browser
                     selectClass:aClass;
                     selectProtocol: (Tools::BrowserList nameListEntryForALL). 
-                initialSelectorOrNil notNil ifTrue:[
-                    browser selectMethod:(aClass compiledMethodAt:initialSelectorOrNil).
-                ].    
+                browser switchToClass:aClass selector:initialSelectorOrNil updateHistory: false.
                 view := ApplicationSubView new client: browser spec: spec.
+                "/ sigh must be done after postbuild
                 navigationState classListApplication addOwnerClasses value:false.
-            ].
+            ]).
             view
         ].
 
@@ -87,6 +88,10 @@
             label:label;
             viewHolder: makeView;
             yourself
+
+    "
+     GenericToolbarIconLibrary systemBrowserIcon inspect
+    "
 ! !
 
 !Inspector2Tab methodsFor:'accessing'!
@@ -192,6 +197,10 @@
 
 !Inspector2Tab class methodsFor:'documentation'!
 
+version
+    ^ '$Header$'
+!
+
 version_CVS
     ^ '$Header$'
 !