--- a/Bag.st Mon Jun 08 21:22:27 2015 +0200
+++ b/Bag.st Mon Jun 08 21:23:24 2015 +0200
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libbasic' }"
+"{ NameSpace: Smalltalk }"
+
Collection subclass:#Bag
instanceVariableNames:'contents'
classVariableNames:''
@@ -535,6 +537,14 @@
^ false
!
+isOrdered
+ "return true, if the receiver's elements are ordered.
+ Redefined to return false here, because the order of keys and values
+ may change due to rehashing, when elements are added/removed"
+
+ ^ false
+!
+
occurrencesOf:anObject
"return how many times anObject is in the receiver"
@@ -544,10 +554,10 @@
!Bag class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.53 2014-10-08 10:29:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.54 2015-06-08 19:23:24 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.53 2014-10-08 10:29:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.54 2015-06-08 19:23:24 cg Exp $'
! !