--- a/SmallSense__MethodSearchDialog.st	Mon Dec 08 02:42:33 2014 +0000
+++ b/SmallSense__MethodSearchDialog.st	Sat Dec 13 00:11:58 2014 +0000
@@ -107,6 +107,14 @@
 
 !MethodSearchDialog methodsFor:'accessing-defaults'!
 
+defaultProcessorClass
+    "superclass SmallSense::AbstractListDialog says that I am responsible to implement this method"
+
+    ^ ImplementorSearchProcessor
+
+    "Created: / 12-12-2014 / 23:21:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 defaultTitle
     ^ (resources string: 'Search Method...')
 
@@ -115,14 +123,13 @@
 
 !MethodSearchDialog methodsFor:'change & update'!
 
-updateMatchingObjectsIgnorePattern
+updateMatchingIgnorePattern
     "/ There's a lot of method, do not display them all but
     "/ rather display only recent selections.                   
+    "/ 
+    self updateMatchingObjectPOs: (processor matchingObjectPOsFor: self recentlySearchedObjects asArray reversed).
 
-    matchingObjects := self recentlySearchedObjects asArray reversed.
-    self updateMatchingObjects: matchingObjects.
-
-    "Created: / 10-05-2014 / 11:50:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 12-12-2014 / 23:39:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MethodSearchDialog methodsFor:'queries'!
@@ -134,36 +141,3 @@
     "Modified: / 06-05-2014 / 00:27:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!MethodSearchDialog methodsFor:'searching'!
-
-matchingObjectPOsFor: objects
-    ^ (objects collect:[:each | PO forClass: each mclass selector: each selector ])
-        sort:[ :a :b | a label == b label ifTrue:[ a classes anElement name < b classes anElement name] ifFalse:[ a label < b label ] ];
-        yourself
-
-    "Created: / 30-04-2014 / 09:50:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 20-06-2014 / 14:21:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-matchingObjectsForPattern:pattern inEnvironment:environment relax: level 
-    | matching |
-
-    matching := OrderedCollection new.
-    self matchPatternHolder value notEmptyOrNil ifTrue:[
-        environment 
-            allMethodsDo:[:mthd |
-                | name |
-
-                name := mthd selector.
-                mthd isJavaMethod ifTrue:[ name := name upTo: $( ].
-                ((filter isNil or:[filter value: mthd]) and:[(pattern match:name relax: level)]) ifTrue:[
-                    matching add:mthd.
-                ].
-            ].
-    ].
-
-    ^ matching
-
-    "Created: / 20-06-2014 / 21:17:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-