Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
InspectorView.st
changeset 9032 7373bccbcd75
parent 8993 ddf4fc887179
child 9262 792dbfa38baf 
--- a/InspectorView.st	Thu Oct 22 14:40:06 2009 +0200
+++ b/InspectorView.st	Thu Oct 22 14:40:18 2009 +0200
@@ -1352,23 +1352,23 @@
         self hasSelfEntry ifTrue:[
             self suppressPseudoSlots ifFalse:[
                 derivedFieldList := OrderedCollection new.
-                derivedFieldList add:'-' , 'self' asText allItalic.
-                derivedFieldList add:'-' , 'local messages' asText allItalic.
-                "/ derivedFieldList add:'-' , 'inherited messages' asText allItalic.
-                derivedFieldList add:'-' , 'all messages' asText allItalic.
-                derivedFieldList add:'-' , 'hash' asText allItalic.
-                derivedFieldList add:'-' , 'identityHash' asText allItalic.
+                derivedFieldList add:'-' , 'self' allItalic.
+                derivedFieldList add:'-' , 'local messages' allItalic.
+                "/ derivedFieldList add:'-' , 'inherited messages' allItalic.
+                derivedFieldList add:'-' , 'all messages' allItalic.
+                derivedFieldList add:'-' , 'hash' allItalic.
+                derivedFieldList add:'-' , 'identityHash' allItalic.
 
                 cls hasImmediateInstances ifFalse:[
                     inspectedObject dependents notEmptyOrNil ifTrue:[
-                        derivedFieldList add:'-' , 'dependents' asText allItalic.
+                        derivedFieldList add:'-' , 'dependents' allItalic.
                     ].
                 ].
                 cls instSize > 0 ifTrue:[
-                    derivedFieldList add:'-' , 'all inst vars' asText allItalic.
+                    derivedFieldList add:'-' , 'all inst vars' allItalic.
                 ].
                 (indexedList notEmptyOrNil and:[self showAllIndexedVarsInFieldList]) ifTrue:[
-                    derivedFieldList add:'-' , 'all indexed vars' asText allItalic.
+                    derivedFieldList add:'-' , 'all indexed vars' allItalic.
                 ].
 
                 derivedFieldList addAll:(self derivedFieldNames).
@@ -2212,9 +2212,9 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.199 2009-10-15 13:29:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.200 2009-10-22 12:40:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.199 2009-10-15 13:29:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.200 2009-10-22 12:40:18 cg Exp $'
 ! !
hg/stx-libtool