--- a/SmallSense__ClassSearchDialog.st	Fri Jun 20 14:25:09 2014 +0100
+++ b/SmallSense__ClassSearchDialog.st	Fri Jun 20 21:22:23 2014 +0100
@@ -246,7 +246,7 @@
     "Created: / 30-04-2014 / 09:50:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-matchingObjectsForPattern:pattern inEnvironment:environment 
+matchingObjectsForPattern:pattern inEnvironment:environment relax: level 
     | matching matchFullyQualifiedClassName |
 
     matching := OrderedCollection new.
@@ -256,14 +256,14 @@
         matchFullyQualifiedClassName ifFalse:[
             environment 
                 allClassesDo:[:cls | 
-                    ((filter isNil or:[filter value: cls]) and:[(pattern match:cls nameWithoutPrefix)]) ifTrue:[
+                    ((filter isNil or:[filter value: cls]) and:[(pattern match:cls nameWithoutPrefix relax: level)]) ifTrue:[
                         matching add:cls.
                     ].
                 ].
         ] ifTrue:[
             environment 
                 allClassesDo:[:cls | 
-                    ((filter isNil or:[filter value: cls]) and:[(pattern match:cls displayString)]) ifTrue:[
+                    ((filter isNil or:[filter value: cls]) and:[(pattern match:cls displayString relax: level)]) ifTrue:[
                         matching add:cls
                     ]
                 ].
@@ -272,7 +272,6 @@
 
     ^ matching
 
-    "Created: / 28-04-2014 / 23:20:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 05-05-2014 / 23:47:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 20-06-2014 / 21:17:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !