#OTHER by cg
authorClaus Gittinger <cg@exept.de>
Sun, 10 Feb 2019 14:51:22 +0100
changeset 23702 6b11890f5f2c
parent 23701 8f66659ef900
child 23703 a5b7669034e8
#OTHER by cg class: CharacterArray category of:17 methods
OrderedCollection.st
--- 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'!