--- a/MethodFinderWindow.st Tue Nov 13 13:18:15 2001 +0100
+++ b/MethodFinderWindow.st Tue Nov 13 19:51:24 2001 +0100
@@ -594,8 +594,10 @@
search
"Do a search based on the input in the various text editors. Return the receiver."
| tempReceiver tempAnswer tempArguments anArray resultArray receiverWithArgument mf|
-self resultHolder value: nil. "reset the result list"
+
+self resultHolder value: nil. "reset the result list"
self classOfResultHolder value: nil. "reset the implementorOf list"
+self codeHolder value: nil. "reset the source"
tempArguments:=self argumentEditorsContents.
tempReceiver :=self receiverEditorContents .
@@ -613,8 +615,10 @@
"an array now holds the following array #(#(receiver argument) answer) or #(#(reciever) answer). which should
be suitable input for the method finder."
-mf:= MethodFinder new.
-resultArray:= mf load: anArray; findMessage.
+self withCursor:Cursor execute do:[
+ mf:= MethodFinder new.
+ resultArray:= mf load: anArray; findMessage.
+].
((resultArray at: 1 )includesSubString: 'no single') ifTrue:[
self warn: (resultArray at: 1 ).
@@ -648,7 +652,7 @@
resultSelectors:= mf selectors. "used to find implementors so we do not have to "
receiver:=tempReceiver "search the string for the selector found. Stored as an ordered collection"
- "Modified: / 13.11.2001 / 13:05:57 / cg"
+ "Modified: / 13.11.2001 / 18:52:35 / cg"
!
selectedClassOfResultHolderChanged