705     self resultHolder value: nil.                "reset the result list"

   705     self resultHolder value: nil.                "reset the result list"

   706     self classOfResultHolder value: nil.        "reset the implementorOf list"

   706     self classOfResultHolder value: nil.        "reset the implementorOf list"

   707     self codeHolder value: nil.                  "reset the source"

   707     self codeHolder value: nil.                  "reset the source"

   708 

   708 

   709     self withCursor:Cursor execute do:[

   709     self withCursor:Cursor execute do:[

   710         list := SystemBrowser findImplementorsMatching:pattern in:Smalltalk allClasses ignoreCase:true.

   713         list := SystemBrowser findImplementorsMatching:pattern in:Smalltalk allClasses ignoreCase:true.

   711     ].

   714     ].

   712 

   715 

   713     counts := IdentityDictionary new.

   716     counts := IdentityDictionary new.

   714     selectors := IdentitySet new.

   717     selectors := IdentitySet new.