--- a/Tools_SearchDialog.st	Thu Sep 21 16:53:11 2006 +0200
+++ b/Tools_SearchDialog.st	Thu Sep 21 17:39:10 2006 +0200
@@ -455,6 +455,17 @@
     ^ b.
 !
 
+addCheckBoxForClassesPackage:pkg 
+    |b|
+
+    b := CheckBox 
+                label:(resources string:'Classes package (''%1'')' with:pkg).
+    self addCheckBox:b forSearchArea:#currentClassesPackage.
+    ^ b.
+
+    "Created: / 21-09-2006 / 17:39:55 / cg"
+!
+
 addCheckBoxForCurrentNamespace
     |b|
 
@@ -993,5 +1004,5 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.17 2006-09-18 08:51:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.18 2006-09-21 15:39:10 cg Exp $'
 ! !