Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 03 Nov 1997 16:35:38 +0100
changeset 3095 cdb753308f6e
parent 3094 647219dc860b
child 3096 881660d6e997
checkin from browser
OrdColl.st file | annotate | diff | comparison | revisions
OrderedCollection.st file | annotate | diff | comparison | revisions 
--- a/OrdColl.st	Mon Nov 03 16:29:58 1997 +0100
+++ b/OrdColl.st	Mon Nov 03 16:35:38 1997 +0100
@@ -1543,7 +1543,7 @@
     ^ lastIndex - firstIndex + 1
 ! !
 
-!OrderedCollection methodsFor:'testing'!
+!OrderedCollection methodsFor:'searching'!
 
 identityIndexOf:anObject
     "return the index of anObject or 0 if not found. Compare using =="
@@ -1576,28 +1576,6 @@
     "Modified: 12.4.1996 / 17:58:19 / cg"
 !
 
-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"
-!
-
 indexOf:anObject
     "return the index of anObject or 0 if not found in the collection.
      Compare using ="
@@ -1646,8 +1624,32 @@
     "Modified: 12.4.1996 / 17:58:53 / cg"
 ! !
 
+!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"
+! !
+
 !OrderedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.62 1997-04-15 11:05:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.63 1997-11-03 15:35:38 cg Exp $'
 ! !
--- a/OrderedCollection.st	Mon Nov 03 16:29:58 1997 +0100
+++ b/OrderedCollection.st	Mon Nov 03 16:35:38 1997 +0100
@@ -1543,7 +1543,7 @@
     ^ lastIndex - firstIndex + 1
 ! !
 
-!OrderedCollection methodsFor:'testing'!
+!OrderedCollection methodsFor:'searching'!
 
 identityIndexOf:anObject
     "return the index of anObject or 0 if not found. Compare using =="
@@ -1576,28 +1576,6 @@
     "Modified: 12.4.1996 / 17:58:19 / cg"
 !
 
-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"
-!
-
 indexOf:anObject
     "return the index of anObject or 0 if not found in the collection.
      Compare using ="
@@ -1646,8 +1624,32 @@
     "Modified: 12.4.1996 / 17:58:53 / cg"
 ! !
 
+!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"
+! !
+
 !OrderedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.62 1997-04-15 11:05:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.63 1997-11-03 15:35:38 cg Exp $'
 ! !
hg/stx-libbasic