--- a/InspectorView.st	Thu Nov 11 06:51:18 2010 +0100
+++ b/InspectorView.st	Thu Nov 11 17:14:15 2010 +0100
@@ -16,7 +16,8 @@
 		hasMore monitorProcess hideReceiver integerDisplayRadix
 		inspectHistory allowFollow isStandaloneInspector selectionIndex
 		object inspectedObjectHolder displayStringMessage
-		suppressPseudoSlots dereferenceValueHolders suppressHeadline'
+		suppressPseudoSlots dereferenceValueHolders suppressHeadline
+		headLineLabel'
 	classVariableNames:'DefaultIcon IdDictionary NextSequentialID LastExtent'
 	poolDictionaries:''
 	category:'Interface-Inspector'
@@ -280,6 +281,14 @@
     "Created: 28.6.1996 / 15:30:26 / cg"
 !
 
+headLineLabel:aString
+    "an alternative headline label (if used as embedded inspector)"
+
+    headLineLabel := aString.
+
+    "Modified: / 11-11-2010 / 17:14:02 / cg"
+!
+
 hideReceiver:aBoolean
     "hide/show the self-entry for the inspected object;
      This is hidden for context inspectors in the debugger"
@@ -532,7 +541,7 @@
 
     suppressHeadline == true ifFalse:[
         labelView := Label origin:0.0@0.0 corner:1.0@0.0 in:helpView.
-        labelView label:(self defaultLabel).
+        labelView label:(headLineLabel ? self defaultLabel).
         labelView bottomInset:(labelView preferredHeight negated).
     ].
 
@@ -582,7 +591,7 @@
     hasMore := false.
 
     "Modified: / 16-08-2005 / 21:54:04 / janfrog"
-    "Modified: / 09-11-2010 / 14:49:37 / cg"
+    "Modified: / 11-11-2010 / 17:13:46 / cg"
 !
 
 initializeDragAndDrop
@@ -2409,9 +2418,9 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.219 2010-11-09 13:52:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.220 2010-11-11 16:14:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.219 2010-11-09 13:52:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.220 2010-11-11 16:14:15 cg Exp $'
 ! !