--- a/Tools__SearchDialog.st	Thu Nov 24 22:03:16 2016 +0000
+++ b/Tools__SearchDialog.st	Thu Nov 24 22:14:31 2016 +0000
@@ -899,7 +899,7 @@
 addCheckBoxForCurrentPackage
     |b|
 
-    b := RadioButton "CheckBox" label:(resources string:'Current package ("%1")' with:currentPackage).
+    b := RadioButton "CheckBox" label:(resources string:'Current Package ("%1")' with:currentPackage).
     self addCheckBox:b forSearchArea:#currentPackage.
     ^ b.
 
@@ -919,7 +919,7 @@
 addCheckBoxForCurrentPackageAndSubPackages
     |b any|
 
-    b := RadioButton "CheckBox" label:(resources string:'Current package ("%1") and Subpackages' with:currentPackage).
+    b := RadioButton "CheckBox" label:(resources string:'Current Package ("%1") and Subpackages' with:currentPackage).
     self addCheckBox:b forSearchArea:#currentPackageAndSubPackages.
     any := Smalltalk allPackageIDs contains:[:p | p startsWith:currentPackage,'/'].
     any ifFalse:[
@@ -1537,10 +1537,17 @@
         methods := nil.
         ^ self.
     ].
-    (where == #classes or:[ where == #classesWithPrivateClasses. ]) ifTrue:[ 
-        classes := selectedClasses collect:[ :each | each theNonMetaclass. ].
-        methods := nil.
-        ^ self.
+    (where == #classes or:[ where == #classesWithPrivateClasses. ]) ifTrue:[
+        selectedClasses notNil ifTrue:[
+            classes := selectedClasses collect:[ :each | each theNonMetaclass. ].
+            methods := nil.
+        ] ifFalse:[
+            browser selectedMethods value notEmptyOrNil ifTrue:[
+                classes := ((browser selectedMethods value ? #()) collect:[:m | m mclass theNonMetaclass] as:Set) asOrderedCollection.
+                methods := nil.
+            ].
+            ^ self.
+        ].
     ].
     (where == #classHierarchies or:[ where == #classHierarchiesWithPrivateClasses. ]) 
     ifTrue:[ 
@@ -1629,7 +1636,7 @@
     self todo:'unimplemented search'.
 
     "Modified: / 05-10-2011 / 15:48:20 / az"
-    "Modified: / 29-02-2012 / 19:47:42 / cg"
+    "Modified: / 18-11-2016 / 00:22:55 / cg"
 !
 
 helpTextForMetaPatterns