--- a/extensions.st	Tue Feb 03 11:39:06 2015 +0100
+++ b/extensions.st	Tue Feb 03 12:18:00 2015 +0100
@@ -1307,6 +1307,50 @@
 
 !Object methodsFor:'inspecting'!
 
+inspector2TabClass
+    |spec makeView view|
+
+    <inspector2Tab>
+
+    "/ spec := #singleClassBrowserSpec.
+    spec := #multipleClassBrowserSpec.
+
+    makeView := [
+        |browser cls canvas|
+
+        cls := self class theNonMetaclass.
+        view isNil ifTrue:[
+            browser := Tools::NewSystemBrowser new.
+            browser isEmbeddedBrowser:true.
+            browser createBuilder.
+            browser navigationState canvasType:spec.
+            browser browserCanvasType:spec.
+            canvas := browser browserCanvas value.
+            canvas builder:(browser builder).
+            browser navigationState canvas:canvas.
+            "/ browser switchToClassHierarchyView.
+            "/ browser showInheritedMethods.
+            browser classListGenerator value:(cls withAllSuperclasses).
+            browser sortByNameAndInheritance value:true.
+            browser selectClass: cls.
+            browser selectProtocol: (Tools::BrowserList nameListEntryForALL).  
+
+            view := ApplicationSubView new client: browser spec: spec.
+        ].
+        view
+    ].
+
+    ^  Tools::Inspector2Tab new
+            priority: 0;
+            label:'Class';
+            viewHolder: makeView;
+            yourself
+
+    "Created: / 03-02-2015 / 11:00:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!Object methodsFor:'inspecting'!
+
 inspector2TabCommon
     "a tab, showing the old inspector"
 
@@ -2377,7 +2421,7 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.136 2015-01-31 23:42:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.137 2015-02-03 11:18:00 vrany Exp $'
 ! !
 
 !stx_libtool class methodsFor:'documentation'!