--- a/SetInspectorView.st Tue Oct 23 00:18:47 2012 +0200
+++ b/SetInspectorView.st Tue Oct 23 00:23:59 2012 +0200
@@ -96,10 +96,13 @@
!
derivedFields
- ^ Dictionary new
- declareAllNewFrom:(super derivedFields ? #());
- add:('-size' -> [ object size ]);
- yourself
+ ^ super derivedFields
+"/
+"/ size is already there
+"/ ^ Dictionary new
+"/ declareAllNewFrom:(super derivedFields ? #());
+"/ add:('-size' -> [ object size ]);
+"/ yourself
"Modified: / 09-10-2006 / 12:27:21 / cg"
!
@@ -204,5 +207,5 @@
!SetInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.25 2009-02-02 16:51:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.26 2012-10-22 22:23:59 cg Exp $'
! !