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