--- a/Tools_SearchDialog.st	Wed Apr 09 19:03:41 2008 +0200
+++ b/Tools_SearchDialog.st	Mon Apr 14 18:48:35 2008 +0200
@@ -52,6 +52,23 @@
 
 lastStringSearchArea
     ^ LastStringSearchArea
+!
+
+lastStringSearchArea: aSymbol
+
+    "
+        #everywhere,
+        #currentNameSpace
+        #currentPackage
+        #currentClassesNameSpace
+        #classCategories
+        #classes
+        #classesWithPrivateClasses
+        #classHierarchies
+        #classHierarchiesWithPrivateClasses
+    "
+
+    LastStringSearchArea := aSymbol
 ! !
 
 !SearchDialog methodsFor:'accessing-entered values'!
@@ -1028,5 +1045,5 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.22 2007-03-15 15:30:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.23 2008-04-14 16:48:35 fm Exp $'
 ! !