# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1310637497 -7200
# Node ID 11e7bcf8838c481530633b09bbe2537c6625523f
# Parent  25455118d667fac05b6e959e7e2bb6c2962aabca
inspector label

diff -r 25455118d667 -r 11e7bcf8838c extensions.st
--- a/extensions.st	Thu Jul 14 10:53:20 2011 +0200
+++ b/extensions.st	Thu Jul 14 11:58:17 2011 +0200
@@ -327,6 +327,14 @@
 
 !Dictionary methodsFor:'inspecting'!
 
+inspector2TabLabel
+    ^ 'Dictionary'
+
+    "Created: / 14-07-2011 / 11:57:18 / cg"
+! !
+
+!Dictionary methodsFor:'inspecting'!
+
 inspectorClass
     "redefined to use DictionaryInspector
      (instead of the default Inspector)."
@@ -954,13 +962,23 @@
 
     ^ Tools::Inspector2Tab new
             priority: 50;
-            label:'Object';
+            label:(self inspector2TabLabel);
             view: (self inspectorClass new inspect:self);
             yourself
 
     "Created: / 05-07-2011 / 14:06:16 / cg"
 ! !
 
+!Object methodsFor:'debugging'!
+
+inspector2TabLabel
+    "label of the main tab"
+
+    ^ 'Object'
+
+    "Created: / 14-07-2011 / 11:56:23 / cg"
+! !
+
 !Object methodsFor:'inspecting'!
 
 inspector2Tabs
@@ -1485,5 +1503,5 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.40 2011-07-14 08:53:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.41 2011-07-14 09:58:17 cg Exp $'
 ! !
\ No newline at end of file