--- a/InspView.st	Thu Aug 03 03:38:05 1995 +0200
+++ b/InspView.st	Thu Aug 10 15:14:54 1995 +0200
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.26 1995-07-23 03:19:18 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.27 1995-08-10 13:14:22 claus Exp $
 '!
 
 !InspectorView class methodsFor:'documentation'!
@@ -45,7 +45,8 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.26 1995-07-23 03:19:18 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.27 1995-08-10 13:14:22 claus Exp $
+$Revision: 1.27 $
 "
 !
 
@@ -92,6 +93,7 @@
 		     icon:self defaultIcon
 		minExtent:(100 @ 100).
 
+    topView iconLabel:(self labelNameFor:anObject).
     topView extent:(Screen current extent // 3).
 
     inspectorView := self origin:(0.0 @ 0.0)
@@ -134,6 +136,15 @@
 !
 
 labelFor:anObject
+    "return the windowLabel to use in my topView, when inspecting anObject."
+
+    ^ ClassResources string:'Inspector on: %1' with:(self labelNameFor:anObject)
+!
+
+labelNameFor:anObject
+    "return the iconLabel to use in my topView, when inspecting anObject.
+     Simply returns the className or name of anObjects class"
+
     |nm|
 
     anObject isClass ifTrue:[
@@ -143,7 +154,7 @@
 	nm := anObject classNameWithArticle
     ].
 
-    ^ 'Inspector on: ' , nm
+    ^ nm
 ! !
 
 !InspectorView methodsFor:'accessing'!