1134 tempArguments := self argumentEditorsContents. |
1134 tempArguments := self argumentEditorsContents. |
1135 tempReceiver := self receiverEditorContents. |
1135 tempReceiver := self receiverEditorContents. |
1136 tempAnswer := self messageAnswerEditorContents. |
1136 tempAnswer := self messageAnswerEditorContents. |
1137 "self cleanInputRec:tempReceiver arg:tempArguments ans:tempAnswer." |
1137 "self cleanInputRec:tempReceiver arg:tempArguments ans:tempAnswer." |
1138 anArray := Array new:2. |
1138 anArray := Array new:2. |
1139 receiverWithArgument := self mergeReceiver:(tempReceiver value) |
1139 receiverWithArgument := self mergeReceiver:(tempReceiver value) withArgument:(tempArguments values). |
1140 withArgument:(tempArguments values). |
|
1141 anArray |
1140 anArray |
1142 at:1 put:receiverWithArgument; |
1141 at:1 put:receiverWithArgument; |
1143 at:2 put:tempAnswer value. |
1142 at:2 put:tempAnswer value. |
1144 "an array now holds the following array #(#(receiver argument) answer) or #(#(receiver) answer). which should |
1143 "an array now holds the following array #(#(receiver argument) answer) or #(#(receiver) answer). which should |
1145 be suitable input for the method finder." |
1144 be suitable input for the method finder." |
1146 self withCursor:Cursor execute |
1145 self withCursor:Cursor execute |
1147 do:[ |
1146 do:[ |
1148 mf := MethodFinder new. |
1147 mf := MethodFinder new. |
1149 resultArray := mf |
1148 resultArray := mf load:anArray; findMessage. |
1150 load:anArray; |
|
1151 findMessage. |
|
1152 ]. |
1149 ]. |
1153 |
1150 |
1154 ((resultArray at:1) includesSubString:'no single') ifTrue:[ |
1151 ((resultArray at:1) includesSubString:'no single') ifTrue:[ |
1155 false ifTrue:[ |
1152 false ifTrue:[ |
1156 (self confirm:(c'%1\nTry a more exhaustive search (may take long)?' bindWith:(resultArray at:1))) |
1153 (self confirm:(c'%1\nTry a more exhaustive search (may take long)?' bindWith:(resultArray at:1))) |