--- a/SetInspectorView.st	Tue Aug 22 12:15:13 2006 +0200
+++ b/SetInspectorView.st	Tue Aug 22 12:15:16 2006 +0200
@@ -97,6 +97,12 @@
     "Modified: 28.6.1996 / 16:05:42 / cg"
 !
 
+derivedFields
+    ^ (Array with:('size' -> object size)) , super derivedFields
+
+    "Modified: / 22-08-2006 / 12:15:16 / cg"
+!
+
 indexList 
     "return a list of indexes to show in the selectionList.
      Set hasMore to true, if a '...' entry should be added."
@@ -184,5 +190,5 @@
 !SetInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.22 2006-01-24 16:27:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.23 2006-08-22 10:15:16 cg Exp $'
 ! !