#REFACTORING by stefan
class: MethodFinderWindow
changed: #search
replace ST/V compatibility method with ST/X original
--- a/MethodFinderWindow.st Tue Feb 20 21:53:09 2018 +0100
+++ b/MethodFinderWindow.st Tue Feb 27 12:01:16 2018 +0100
@@ -1089,23 +1089,23 @@
keysAndValuesDo:[:key :value |
|newValue|
- newValue := value replString:'data1' withString:(tempReceiver key).
+ newValue := value copyReplaceString:'data1' withString:(tempReceiver key).
(tempArguments size) >= 1 ifTrue:[
newValue := newValue replString:'data2'
withString:(tempArguments keyAt:1)
].
(tempArguments size) > 1 ifTrue:[
- newValue := newValue replString:'data3'
+ newValue := newValue copyReplaceString:'data3'
withString:(tempArguments keyAt:2).
].
(tempArguments size) > 2 ifTrue:[
- newValue := newValue replString:'data4'
+ newValue := newValue copyReplaceString:'data4'
withString:(tempArguments keyAt:3).
].
(tempArguments size) > 3 ifTrue:[
self halt:'unimplemented'.
].
- " newValue:= value replString: 'data3' withString:(self messageAnswer key). "
+ " newValue:= value copyReplaceString: 'data3' withString:(self messageAnswer key). "
newValue := newValue , ' --> ' , (tempAnswer key).
newValue replaceAll:Character cr with:Character space.
resultArray at:key put:newValue.
@@ -1115,6 +1115,7 @@
receiver := tempReceiver
"Modified: / 26-09-2011 / 12:42:28 / cg"
+ "Modified: / 27-02-2018 / 11:37:58 / stefan"
!
searchPatternMatchesInBackground