*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 15 Sep 1997 22:56:50 +0200
changeset 2929 ca74fdc386cc
parent 2928 39c23e287c81
child 2930 a8999d16b8f9
*** empty log message ***
SortColl.st
SortedCollection.st
String.st
--- a/SortColl.st	Mon Sep 15 22:51:53 1997 +0200
+++ b/SortColl.st	Mon Sep 15 22:56:50 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.10 on 13-sep-1997 at 10:52:56 pm'                !
+
 OrderedCollection subclass:#SortedCollection
 	instanceVariableNames:'sortBlock'
 	classVariableNames:'DefaultSortBlock'
@@ -143,6 +145,29 @@
 
 !SortedCollection class methodsFor:'instance creation'!
 
+forStrings
+    "this is supposed to return a sortedCollection, which sorts using
+     the current locales collating sequence. For now, simply use a
+     normal string compare.
+     This will change"
+
+    ^ self new
+
+    "Modified: 13.9.1997 / 10:18:58 / cg"
+    "Created: 13.9.1997 / 10:41:54 / cg"
+!
+
+forStrings:size
+    "this is supposed to return a sortedCollection, which sorts using
+     the current locales collating sequence. For now, simply use a
+     normal string compare.
+     This will change"
+
+    ^ self new:size
+
+    "Modified: 13.9.1997 / 10:18:58 / cg"
+!
+
 new
     "return a new sortedCollection, the sorting is done using
      a compare for a < b, in ascending order"
@@ -680,6 +705,6 @@
 !SortedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/SortColl.st,v 1.34 1997-01-23 16:41:10 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/SortColl.st,v 1.35 1997-09-15 20:56:49 cg Exp $'
 ! !
 SortedCollection initialize!
--- a/SortedCollection.st	Mon Sep 15 22:51:53 1997 +0200
+++ b/SortedCollection.st	Mon Sep 15 22:56:50 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.10 on 13-sep-1997 at 10:52:56 pm'                !
+
 OrderedCollection subclass:#SortedCollection
 	instanceVariableNames:'sortBlock'
 	classVariableNames:'DefaultSortBlock'
@@ -143,6 +145,29 @@
 
 !SortedCollection class methodsFor:'instance creation'!
 
+forStrings
+    "this is supposed to return a sortedCollection, which sorts using
+     the current locales collating sequence. For now, simply use a
+     normal string compare.
+     This will change"
+
+    ^ self new
+
+    "Modified: 13.9.1997 / 10:18:58 / cg"
+    "Created: 13.9.1997 / 10:41:54 / cg"
+!
+
+forStrings:size
+    "this is supposed to return a sortedCollection, which sorts using
+     the current locales collating sequence. For now, simply use a
+     normal string compare.
+     This will change"
+
+    ^ self new:size
+
+    "Modified: 13.9.1997 / 10:18:58 / cg"
+!
+
 new
     "return a new sortedCollection, the sorting is done using
      a compare for a < b, in ascending order"
@@ -680,6 +705,6 @@
 !SortedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.34 1997-01-23 16:41:10 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.35 1997-09-15 20:56:49 cg Exp $'
 ! !
 SortedCollection initialize!
--- a/String.st	Mon Sep 15 22:51:53 1997 +0200
+++ b/String.st	Mon Sep 15 22:56:50 1997 +0200
@@ -1795,7 +1795,7 @@
     "
 !
 
-replaceAll:oldCharacter by:newCharacter
+replaceAll:oldCharacter with:newCharacter
     "replace all oldCharacters by newCharacter in the receiver"
 
 %{  /* NOCONTEXT */
@@ -1818,10 +1818,10 @@
         RETURN ( self );
     }
 %}.
-    ^ super replaceAll:oldCharacter by:newCharacter
+    ^ super replaceAll:oldCharacter with:newCharacter
 
     "
-     'helloWorld' copy replaceAll:$o by:$O 
+     'helloWorld' copy replaceAll:$o with:$O 
     "
 !
 
@@ -2516,5 +2516,5 @@
 !String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.103 1997-09-06 17:16:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.104 1997-09-15 20:56:50 cg Exp $'
 ! !