--- a/OrderedCollection.st Sun Feb 10 14:49:45 2019 +0100
+++ b/OrderedCollection.st Sun Feb 10 14:51:22 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -2158,6 +2156,54 @@
"Modified (comment): / 17-03-2017 / 11:49:58 / stefan"
!
+includes:anObject
+ "return true if anObject is in the collection. Compare using ="
+
+ ^ (contentsArray
+ indexOf:anObject
+ startingAt:firstIndex
+ endingAt:lastIndex) ~~ 0
+
+ "Modified: 12.4.1996 / 17:57:27 / cg"
+!
+
+includesIdentical:anObject
+ "return true if anObject is in the collection. Compare using =="
+
+ ^ (contentsArray
+ identityIndexOf:anObject
+ startingAt:firstIndex
+ endingAt:lastIndex) ~~ 0
+
+ "Modified: 12.4.1996 / 17:57:09 / cg"
+!
+
+isEmpty
+ "return true, if the receiver has no elements"
+
+ ^ lastIndex < firstIndex
+!
+
+isEmptyOrNil
+ "return true, if the receiver has no elements"
+
+ ^ lastIndex < firstIndex
+!
+
+notEmpty
+ "return true, if the receiver has any elements"
+
+ ^ lastIndex >= firstIndex
+!
+
+notEmptyOrNil
+ "return true, if the receiver has any elements"
+
+ ^ lastIndex >= firstIndex
+
+ "Created: / 22-02-2017 / 14:08:43 / stefan"
+!
+
size
"return the number of elements in the collection"
@@ -2287,40 +2333,6 @@
!OrderedCollection methodsFor:'testing'!
-includes:anObject
- "return true if anObject is in the collection. Compare using ="
-
- ^ (contentsArray
- indexOf:anObject
- startingAt:firstIndex
- endingAt:lastIndex) ~~ 0
-
- "Modified: 12.4.1996 / 17:57:27 / cg"
-!
-
-includesIdentical:anObject
- "return true if anObject is in the collection. Compare using =="
-
- ^ (contentsArray
- identityIndexOf:anObject
- startingAt:firstIndex
- endingAt:lastIndex) ~~ 0
-
- "Modified: 12.4.1996 / 17:57:09 / cg"
-!
-
-isEmpty
- "return true, if the receiver has no elements"
-
- ^ lastIndex < firstIndex
-!
-
-isEmptyOrNil
- "return true, if the receiver has no elements"
-
- ^ lastIndex < firstIndex
-!
-
isFixedSize
"return true if the receiver cannot grow - this will vanish once
Arrays and Strings learn how to grow ..."
@@ -2335,20 +2347,6 @@
^ true
-!
-
-notEmpty
- "return true, if the receiver has any elements"
-
- ^ lastIndex >= firstIndex
-!
-
-notEmptyOrNil
- "return true, if the receiver has any elements"
-
- ^ lastIndex >= firstIndex
-
- "Created: / 22-02-2017 / 14:08:43 / stefan"
! !
!OrderedCollection methodsFor:'tuning'!