--- a/Tools_SearchDialog.st	Sat Mar 16 12:58:43 2013 +0100
+++ b/Tools_SearchDialog.st	Sat Mar 16 17:12:51 2013 +0100
@@ -75,6 +75,10 @@
 
 !SearchDialog methodsFor:'accessing'!
 
+currentPackage
+    ^ currentPackage
+!
+
 showMetaFilter:something
     showMetaFilter := something.
 ! !
@@ -113,6 +117,10 @@
     ^ openHow.
 !
 
+searchAreaSelected
+    ^ whereRadioGroup value.
+!
+
 searchIgnoringCase
     ^ self searchIsCaseSensitive not
 !
@@ -1387,7 +1395,8 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.73 2012-12-02 10:10:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.74 2013-03-16 16:12:51 cg Exp $'
 ! !
 
+
 SearchDialog initialize!