# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1005677484 -3600
# Node ID b38fd0e5254de6e3c311d443ca222e8f1131267e
# Parent  fbe49461368517a0bdd701b21a0624c08226871c
comment

diff -r fbe494613685 -r b38fd0e5254d MethodFinderWindow.st
--- 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