--- a/InspectorView.st	Fri May 23 10:18:56 2014 +0200
+++ b/InspectorView.st	Fri May 23 10:22:46 2014 +0200
@@ -3143,6 +3143,7 @@
     self hasSelfEntry ifTrue:[
         list add:'-' , (object isJavaObject ifTrue:['this'] ifFalse:['self']) allItalic.
     ].
+    list add:'-' , 'class' allItalic.
     hideMessages ifFalse:[
         list add:'-' , 'local messages' allItalic.
         "/ list add:'-' , 'inherited messages' allItalic.
@@ -3202,6 +3203,9 @@
         (sel startsWith:'-all') ifTrue:[
             acceptAction := nil.
         ].
+        (sel startsWith:'-class') ifTrue:[
+            acceptAction := nil.
+        ].
         (sel startsWith:'-hash') ifTrue:[
             acceptAction := nil.
         ].
@@ -3384,6 +3388,9 @@
     (line startsWith:'-size') ifTrue:[
         ^ object size
     ].
+    (line startsWith:'-class') ifTrue:[
+        ^ object class
+    ].
     (line startsWith:'-hash') ifTrue:[
         ^ object hash
     ].
@@ -3702,10 +3709,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.331 2014-04-15 09:29:12 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.332 2014-05-23 08:22:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.331 2014-04-15 09:29:12 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.332 2014-05-23 08:22:46 cg Exp $'
 ! !