--- a/Tools_SearchDialog.st	Mon Oct 09 21:33:52 2006 +0200
+++ b/Tools_SearchDialog.st	Tue Oct 10 15:35:16 2006 +0200
@@ -329,14 +329,14 @@
             currentPackage := methodPackages first.
         ] ifFalse:[
             currentPackage := browser currentProject.
-            selectedClasses size == 0 ifTrue:[
-                |classesInAllSelectedCategories packagesOfAllClassesInAllSelectedCategories|
-                classesInAllSelectedCategories := Smalltalk allClasses select:[:cls | selectedCategories includes:cls category].
-                packagesOfAllClassesInAllSelectedCategories := classesInAllSelectedCategories collect:[:eachClass | eachClass package].
-                packagesOfAllClassesInAllSelectedCategories size == 1 ifTrue:[
-                    currentPackage := packagesOfAllClassesInAllSelectedCategories first.
-                ].
-            ].
+"/            selectedClasses size == 0 ifTrue:[
+"/                |classesInAllSelectedCategories packagesOfAllClassesInAllSelectedCategories|
+"/                classesInAllSelectedCategories := Smalltalk allClasses select:[:cls | selectedCategories includes:cls category].
+"/                packagesOfAllClassesInAllSelectedCategories := classesInAllSelectedCategories collect:[:eachClass | eachClass package].
+"/                packagesOfAllClassesInAllSelectedCategories size == 1 ifTrue:[
+"/                    currentPackage := packagesOfAllClassesInAllSelectedCategories first.
+"/                ].
+"/            ].
         ].
 
         (currentPackage notNil 
@@ -428,7 +428,7 @@
 
     self label:(resources string:'Search').
 
-    "Modified: / 08-10-2006 / 16:26:00 / cg"
+    "Modified: / 10-10-2006 / 15:30:52 / cg"
 ! !
 
 !SearchDialog methodsFor:'setup'!
@@ -472,28 +472,34 @@
 addCheckBoxForCurrentNamespace
     |b|
 
-    b := CheckBox label:(resources string:'Current nameSpace (''%1'')'
-			with:currentNamespace name).
+    b := CheckBox 
+            label:(resources string:'Current nameSpace (''%1'')' with:currentNamespace name).
     self addCheckBox:b forSearchArea:#currentNameSpace.
     ^ b.
+
+    "Modified: / 10-10-2006 / 15:28:47 / cg"
 !
 
 addCheckBoxForCurrentPackage
     |b|
 
-    b := CheckBox label:(resources string:'Current package (''%1'')'
-                        with:currentPackage).
+    b := CheckBox 
+            label:(resources string:'Current package (''%1'')' with:currentPackage).
     self addCheckBox:b forSearchArea:#currentPackage.
     ^ b.
+
+    "Modified: / 10-10-2006 / 15:28:51 / cg"
 !
 
 addCheckBoxForCurrentPackage:pkg 
     |b|
 
     b := CheckBox 
-                label:(resources string:'Classes package (''%1'')' with:pkg).
+            label:(resources string:'Classes package (''%1'')' with:pkg).
     self addCheckBox:b forSearchArea:#currentClassesPackage.
     ^ b.
+
+    "Modified: / 10-10-2006 / 15:29:06 / cg"
 !
 
 addCheckBoxForEverywhere
@@ -1019,5 +1025,5 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.20 2006-10-09 10:48:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.21 2006-10-10 13:35:16 cg Exp $'
 ! !