extensions.st
changeset 11827 7fc67c9afc32
parent 11792 1d9eb5a2ac82
child 11838 f0b57bc138d4
--- a/extensions.st	Fri Sep 28 19:55:57 2012 +0200
+++ b/extensions.st	Sun Sep 30 01:33:44 2012 +0200
@@ -353,6 +353,17 @@
     ^ super inspectorValueStringInListFor:anInspector
 ! !
 
+!Collection methodsFor:'inspecting'!
+
+inspectorValueStringInListFor:anInspector
+    "returns a string to be shown in the inspector's list"
+
+    self isEmpty ifTrue:[
+        ^ 'empty ' , self className
+    ].
+    ^ (super inspectorValueStringInListFor:anInspector)
+! !
+
 !Color methodsFor:'inspecting'!
 
 inspectorClass
@@ -1934,5 +1945,5 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.81 2012-09-09 20:44:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.82 2012-09-29 23:33:44 cg Exp $'
 ! !
\ No newline at end of file