--- 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