--- a/Tools__SearchDialog.st	Sat Jan 31 02:08:49 2015 +0100
+++ b/Tools__SearchDialog.st	Sat Jan 31 02:59:31 2015 +0100
@@ -22,7 +22,7 @@
 		allowBuffer allowBrowser searchWhat searchClassProtocolHolder
 		searchInstanceProtocolHolder selectorOrCode selectionList
 		listHolder matchProcess inputField showMetaFilter
-		metaclassesOnlyHolder classesOnlyHolder'
+		metaclassesOnlyHolder classesOnlyHolder initialText'
 	classVariableNames:'LastCodeSearched LastCodeSearchWasMethod LastGlobalSearched
 		LastStringSearched LastSearchWasMatch LastSearchWasCaseSensitive
 		LastStringSearchArea LastCodeSearchArea AREA_LISTOFMETHODS
@@ -79,6 +79,10 @@
     ^ currentPackage
 !
 
+initialText:aString
+    initialText := aString.
+!
+
 showMetaFilter:something
     showMetaFilter := something.
 ! !
@@ -992,22 +996,26 @@
 addInputFieldForSelectorOrNameOrString
     |sel lastSearchPatterns|
 
-    browser notNil ifTrue:[
-        searchWhat == #selector ifTrue:[ 
-            sel := browser selectorToSearchFor.
-        ] ifFalse:[ 
-            searchWhat == #globalName ifTrue:[ 
-                sel := browser globalNameToSearchFor ? LastGlobalSearched.
+    initialText notNil ifTrue:[
+        sel := initialText
+    ] ifFalse:[
+        browser notNil ifTrue:[
+            searchWhat == #selector ifTrue:[ 
+                sel := browser selectorToSearchFor.
             ] ifFalse:[ 
-                searchWhat == #string ifTrue:[
-                    sel := browser stringToSearchFor ? LastStringSearched.
-                ] ifFalse:[
-                    searchWhat == #resource ifTrue:[
-                        sel := browser stringToSearchFor ? LastResourceSearched.
+                searchWhat == #globalName ifTrue:[ 
+                    sel := browser globalNameToSearchFor ? LastGlobalSearched.
+                ] ifFalse:[ 
+                    searchWhat == #string ifTrue:[
+                        sel := browser stringToSearchFor ? LastStringSearched.
                     ] ifFalse:[
-                        sel := browser selectorToSearchFor.
+                        searchWhat == #resource ifTrue:[
+                            sel := browser stringToSearchFor ? LastResourceSearched.
+                        ] ifFalse:[
+                            sel := browser selectorToSearchFor.
+                        ]
                     ]
-                ]
+                ].
             ].
         ].
     ].
@@ -1406,11 +1414,11 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__SearchDialog.st,v 1.84 2014-12-22 00:20:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__SearchDialog.st,v 1.85 2015-01-31 01:59:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__SearchDialog.st,v 1.84 2014-12-22 00:20:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__SearchDialog.st,v 1.85 2015-01-31 01:59:31 cg Exp $'
 ! !