--- a/Tools_SearchDialog.st	Thu Feb 26 19:57:02 2004 +0100
+++ b/Tools_SearchDialog.st	Thu Feb 26 20:03:55 2004 +0100
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-"{ Package: 'stx:__NoProject__' }"
+"{ Package: 'stx:libtool' }"
 
 "{ NameSpace: Tools }"
 
@@ -469,20 +469,20 @@
     |sel inputField lastSearchPatterns|
 
     isSelector == true ifTrue:[ 
-        sel := browser selectorToSearchFor.
+	sel := browser selectorToSearchFor.
     ] ifFalse:[ 
-        isSelector == #globalName ifTrue:[ 
-            sel := browser globalNameToSearchFor ? LastGlobalSearched.
-        ] ifFalse:[ 
-            sel := browser stringToSearchFor.
-        ].
+	isSelector == #globalName ifTrue:[ 
+	    sel := browser globalNameToSearchFor ? LastGlobalSearched.
+	] ifFalse:[ 
+	    sel := browser stringToSearchFor.
+	].
     ].
     sel size == 0 ifTrue:[ 
-        "/ use last searchString
-        lastSearchPatterns := browser lastSearchPatterns.
-        lastSearchPatterns size > 0 ifTrue:[ 
-            sel := lastSearchPatterns first.
-        ].
+	"/ use last searchString
+	lastSearchPatterns := browser lastSearchPatterns.
+	lastSearchPatterns size > 0 ifTrue:[ 
+	    sel := lastSearchPatterns first.
+	].
     ].
     selectorHolder := sel asValue.
 
@@ -490,23 +490,23 @@
     inputField list:lastSearchPatterns .
     inputField selectAll.
     inputField 
-        entryCompletionBlock:[ :contents | 
-            |s what|
+	entryCompletionBlock:[ :contents | 
+	    |s what|
 
-            s := contents withoutSpaces.
-            self topView 
-                withWaitCursorDo:[ 
-                    isSelector == #globalName ifFalse:[ 
-                        what := Smalltalk selectorCompletion:s.
-                    ] ifTrue:[ 
-                        what := Smalltalk globalNameCompletion:s.
-                    ].
-                    inputField contents:what first.
-                    (what at:2) size ~~ 1 ifTrue:[ 
-                        browser window beep.
-                    ].
-                ].
-        ].
+	    s := contents withoutSpaces.
+	    self topView 
+		withWaitCursorDo:[ 
+		    isSelector == #globalName ifFalse:[ 
+			what := Smalltalk selectorCompletion:s.
+		    ] ifTrue:[ 
+			what := Smalltalk globalNameCompletion:s.
+		    ].
+		    inputField contents:what first.
+		    (what at:2) size ~~ 1 ifTrue:[ 
+			browser window beep.
+		    ].
+		].
+	].
 !
 
 addTextEntryFieldForCode
@@ -752,5 +752,5 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.1 2004-02-26 18:56:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.2 2004-02-26 19:03:55 cg Exp $'
 ! !