--- a/Bag.st Sun Mar 21 19:37:43 2010 +0000
+++ b/Bag.st Thu Apr 08 18:25:02 2010 +0100
@@ -353,6 +353,14 @@
"Modified: 1.3.1996 / 21:42:44 / cg"
! !
+!Bag methodsFor:'printing & storing'!
+
+printElementsDo:aBlock
+ contents keysAndValuesDo:[:key :value|
+ aBlock value:('%1(*%2)' bindWith:key with:value).
+ ]
+! !
+
!Bag methodsFor:'private'!
initContents
@@ -408,6 +416,11 @@
!Bag class methodsFor:'documentation'!
version
- ^ '$Id: Bag.st 10473 2009-10-24 15:48:19Z vranyj1 $'
+ ^ '$Id: Bag.st 10510 2010-04-08 17:25:02Z vranyj1 $'
+!
+
+version_CVS
+ ^ '§Header: /cvs/stx/stx/libbasic/Bag.st,v 1.41 2010/03/30 13:38:23 stefan Exp §'
! !
+