--- a/Tools__Inspector2.st	Sat Aug 20 22:18:16 2011 +0200
+++ b/Tools__Inspector2.st	Sun Aug 21 11:40:08 2011 +0200
@@ -546,7 +546,7 @@
 !Inspector2::NavigationState class methodsFor:'documentation'!
 
 version
-    ^'$Id: Tools__Inspector2.st,v 1.16 2011-08-19 07:57:00 cg Exp $'
+    ^'$Id: Tools__Inspector2.st,v 1.17 2011-08-21 09:40:08 vrany Exp $'
 !
 
 version_SVN
@@ -661,17 +661,26 @@
 !Inspector2::NavigationState methodsFor:'initialization'!
 
 initializeClassBrowserTab
-    | browser |
+    | browser spec |
 
-    self notYetImplemented.
+    spec := #singleClassBrowserSpec.
+    "/spec := #multipleClassBrowserSpec.
+    browser := Tools::NewSystemBrowser new.
+    browser createBuilder.
+    browser navigationState canvasType:spec.
+    browser browserCanvasType:spec.
+    browser browserCanvas value builder:(browser builder).
+    browser navigationState canvas:browser browserCanvas value.
+    browser showInheritedMethods.
+    browser selectClass: theObject class theNonMetaclass.
 
 
     tabs add:
         (Tools::Inspector2Tab new
-            priority: 50;
-            label:'Object';
-            view: ((theObject inspectorClass new inspect:theObject)
-                        yourself))
+            priority: 0;
+            label:'Class';
+            view: (ApplicationSubView new
+                        client: browser spec: spec))
 
     "Created: / 22-07-2011 / 18:48:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -679,7 +688,7 @@
 initializeCommonTabs
 
     "Unfinished code"
-    "/self initializeClassBrowserTab
+    self initializeClassBrowserTab
 
 "/    tabs add:
 "/        (Tools::Inspector2Tab new
@@ -690,7 +699,7 @@
 
     "Created: / 16-01-2008 / 16:56:48 / janfrog"
     "Modified: / 17-02-2008 / 10:29:54 / janfrog"
-    "Modified: / 22-07-2011 / 18:54:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-08-2011 / 10:03:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 initializeExtraTabs
@@ -729,11 +738,11 @@
 !Inspector2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.16 2011-08-19 07:57:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.17 2011-08-21 09:40:08 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.16 2011-08-19 07:57:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.17 2011-08-21 09:40:08 vrany Exp $'
 !
 
 version_CVS_jvrany