--- a/Tools_SearchDialog.st	Fri Jul 20 11:36:25 2012 +0200
+++ b/Tools_SearchDialog.st	Fri Jul 20 11:42:22 2012 +0200
@@ -482,9 +482,7 @@
                 self addCheckBoxForEverywhere.
             ].
             self addCheckBoxForMethodList.
-            browser selectedMethods value size > 1 ifTrue:[
-                self addCheckBoxForSelectedMethods.
-            ].
+            self addCheckBoxForSelectedMethods.
             self addCheckBoxForSelectedMethodClasses.
             self addCheckBoxForSelectedMethodPackages.
         ] ifFalse:[
@@ -556,7 +554,7 @@
 
     self label:(resources string:'Search').
 
-    "Modified: / 29-02-2012 / 19:48:17 / cg"
+    "Modified: / 20-07-2012 / 11:37:57 / cg"
 ! !
 
 !SearchDialog methodsFor:'setup'!
@@ -805,36 +803,47 @@
 !
 
 addCheckBoxForSelectedMethodClasses
-    |b classes|
+    |b classes numClasses|
 
     classes := ((browser selectedMethods value ? #()) 
                     select:[:m | m mclass notNil]
                     thenCollect:[:m | m mclass theNonMetaclass]) asSet.
-    classes size == 1 ifTrue:[
+    numClasses := classes size.
+    numClasses == 0 ifTrue:[^ self]. "/ comment this to show, but disabled
+
+    numClasses == 1 ifTrue:[
         b := CheckBox label:(resources string:'Selected method''s class ("%1")'
                             with:classes first name).
     ] ifFalse:[
         b := CheckBox label:(resources string:'Selected methods'' classes (%1)'
-                            with:classes size).
+                            with:numClasses).
+        numClasses == 0 ifTrue:[
+            b disable
+        ].
     ].
     self addCheckBox:b forSearchArea:#listOfSelectedMethodClasses.
     ^ b.
 
-    "Modified: / 29-02-2012 / 19:42:33 / cg"
+    "Modified (comment): / 20-07-2012 / 11:40:44 / cg"
 !
 
 addCheckBoxForSelectedMethodPackages
-    |b packages|
+    |b packages numPackages|
 
     packages := ((browser selectedMethods value ? #()) 
                     collect:[:m | m package]) asSet.
+    numPackages := packages size.
+    numPackages size == 0 ifTrue:[^ self]. "/ comment this to show, but disabled
 
-    packages size == 1 ifTrue:[
+    numPackages == 1 ifTrue:[
         b := CheckBox label:(resources string:'Selected method''s package ("%1")'
                             with:packages first).
     ] ifFalse:[
         b := CheckBox label:(resources string:'Selected methods'' packages (%1)'
-                            with:packages size).
+                            with:numPackages).
+        numPackages == 0 ifTrue:[
+            b disable
+        ].
     ].
     self addCheckBox:b forSearchArea:#listOfSelectedMethodPackages.
     ^ b.
@@ -843,12 +852,17 @@
 !
 
 addCheckBoxForSelectedMethods
-    |b|
+    |b numSelected|
+
+    numSelected := browser selectedMethods value size.
+    numSelected == 0 ifTrue:[^ self]. "/ comment this to show, but disabled
 
-    b := CheckBox label:(resources string:'Selected methods (%1)'
-			with:browser selectedMethods value size).
+    b := CheckBox label:(resources string:'Selected methods (%1)' with:numSelected).
     self addCheckBox:b forSearchArea:#listOfSelectedMethods.
+    numSelected == 0 ifTrue:[b disable].
     ^ b.
+
+    "Modified (comment): / 20-07-2012 / 11:40:33 / cg"
 !
 
 addCheckBoxForSelectedPackage
@@ -1325,7 +1339,7 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.69 2012-02-29 18:50:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.70 2012-07-20 09:42:22 cg Exp $'
 ! !
 
 SearchDialog initialize!