# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1394019485 -3600
# Node ID da322a6b1d2a7c3b7472b7954b91b074cadaf79a
# Parent  656bd37ab2a4e85709ea0a262c9461216e8ae512
class: CharacterArray
changed: #copyReplaceAll:with:
    fixed NOT to change the source string

diff -r 656bd37ab2a4 -r da322a6b1d2a CharacterArray.st
--- a/CharacterArray.st	Wed Mar 05 11:18:15 2014 +0100
+++ b/CharacterArray.st	Wed Mar 05 12:38:05 2014 +0100
@@ -12,11 +12,11 @@
 "{ Package: 'stx:libbasic' }"
 
 UninterpretedBytes variableByteSubclass:#CharacterArray
-        instanceVariableNames:''
-        classVariableNames:'PreviousMatch DecoderTables EncoderTables DecodingFailedSignal
-                EncodingFailedSignal'
-        poolDictionaries:''
-        category:'Collections-Text'
+	instanceVariableNames:''
+	classVariableNames:'PreviousMatch DecoderTables EncoderTables DecodingFailedSignal
+		EncodingFailedSignal'
+	poolDictionaries:''
+	category:'Collections-Text'
 !
 
 !CharacterArray class methodsFor:'documentation'!
@@ -283,7 +283,6 @@
     "Created: 3.8.1997 / 18:16:40 / cg"
 ! !
 
-
 !CharacterArray class methodsFor:'cleanup'!
 
 lowSpaceCleanup
@@ -327,7 +326,6 @@
     "
 ! !
 
-
 !CharacterArray class methodsFor:'pattern matching'!
 
 matchEscapeCharacter
@@ -3593,9 +3591,7 @@
     newElement isByteCollection ifTrue:[
         self halt:'check if this is legal'.
     ].
-    ^ self asString replaceAll:oldElement with:newElement
-
-    "Created: / 18.7.1998 / 23:03:38 / cg"
+    ^ super copyReplaceAll:oldElement with:newElement
 !
 
 copyReplaceString:subString withString:newString
@@ -4091,8 +4087,6 @@
 ! !
 
 
-
-
 !CharacterArray methodsFor:'matching - glob expressions'!
 
 compoundMatch:aString
@@ -4776,7 +4770,6 @@
 ! !
 
 
-
 !CharacterArray methodsFor:'padded copying'!
 
 centerPaddedTo:newSize
@@ -5405,7 +5398,6 @@
     "Modified: 17.4.1997 / 12:50:23 / cg"
 ! !
 
-
 !CharacterArray methodsFor:'special string converting'!
 
 expandPlaceholders:escapeCharacter with:argArrayOrDictionary
@@ -6350,7 +6342,6 @@
     "
 ! !
 
-
 !CharacterArray methodsFor:'substring searching'!
 
 findRangeOfString:subString
@@ -6933,15 +6924,14 @@
     ^ aVisitor visitString:self with:aParameter
 ! !
 
-
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.527 2014-03-04 23:01:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.528 2014-03-05 11:38:05 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.527 2014-03-04 23:01:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.528 2014-03-05 11:38:05 stefan Exp $'
 ! !