1087 "the following then replaces data1 and data2 created by the method finder to the appropriate arguments" |
1087 "the following then replaces data1 and data2 created by the method finder to the appropriate arguments" |
1088 resultArray |
1088 resultArray |
1089 keysAndValuesDo:[:key :value | |
1089 keysAndValuesDo:[:key :value | |
1090 |newValue| |
1090 |newValue| |
1091 |
1091 |
1092 newValue := value replString:'data1' withString:(tempReceiver key). |
1092 newValue := value copyReplaceString:'data1' withString:(tempReceiver key). |
1093 (tempArguments size) >= 1 ifTrue:[ |
1093 (tempArguments size) >= 1 ifTrue:[ |
1094 newValue := newValue replString:'data2' |
1094 newValue := newValue replString:'data2' |
1095 withString:(tempArguments keyAt:1) |
1095 withString:(tempArguments keyAt:1) |
1096 ]. |
1096 ]. |
1097 (tempArguments size) > 1 ifTrue:[ |
1097 (tempArguments size) > 1 ifTrue:[ |
1098 newValue := newValue replString:'data3' |
1098 newValue := newValue copyReplaceString:'data3' |
1099 withString:(tempArguments keyAt:2). |
1099 withString:(tempArguments keyAt:2). |
1100 ]. |
1100 ]. |
1101 (tempArguments size) > 2 ifTrue:[ |
1101 (tempArguments size) > 2 ifTrue:[ |
1102 newValue := newValue replString:'data4' |
1102 newValue := newValue copyReplaceString:'data4' |
1103 withString:(tempArguments keyAt:3). |
1103 withString:(tempArguments keyAt:3). |
1104 ]. |
1104 ]. |
1105 (tempArguments size) > 3 ifTrue:[ |
1105 (tempArguments size) > 3 ifTrue:[ |
1106 self halt:'unimplemented'. |
1106 self halt:'unimplemented'. |
1107 ]. |
1107 ]. |
1108 " newValue:= value replString: 'data3' withString:(self messageAnswer key). " |
1108 " newValue:= value copyReplaceString: 'data3' withString:(self messageAnswer key). " |
1109 newValue := newValue , ' --> ' , (tempAnswer key). |
1109 newValue := newValue , ' --> ' , (tempAnswer key). |
1110 newValue replaceAll:Character cr with:Character space. |
1110 newValue replaceAll:Character cr with:Character space. |
1111 resultArray at:key put:newValue. |
1111 resultArray at:key put:newValue. |
1112 ]. |
1112 ]. |
1113 self resultHolder value:resultArray. |
1113 self resultHolder value:resultArray. |
1114 resultSelectors := mf selectors. |
1114 resultSelectors := mf selectors. |
1115 receiver := tempReceiver |
1115 receiver := tempReceiver |
1116 |
1116 |
1117 "Modified: / 26-09-2011 / 12:42:28 / cg" |
1117 "Modified: / 26-09-2011 / 12:42:28 / cg" |
|
1118 "Modified: / 27-02-2018 / 11:37:58 / stefan" |
1118 ! |
1119 ! |
1119 |
1120 |
1120 searchPatternMatchesInBackground |
1121 searchPatternMatchesInBackground |
1121 "Do a search based on the pattern match as a background task" |
1122 "Do a search based on the pattern match as a background task" |
1122 |
1123 |