--- a/Tools__StringSearchTool.st	Fri Apr 25 15:24:49 2008 +0200
+++ b/Tools__StringSearchTool.st	Mon Apr 28 12:47:50 2008 +0200
@@ -467,13 +467,16 @@
     searchTextView hasFocus ifFalse:[^ false].
 
     anEvent isKeyPressEvent ifTrue:[
-
 "/        Transcript showCR: anEvent key printString.
 "/        anEvent key == #Find ifTrue:[
 "/            self halt.
 "/            self searchNextText.
 "/            ^ true
 "/        ].
+        anEvent key == #Escape ifTrue:[
+            self escapePressed.
+            ^ true
+        ].
         anEvent key == #FindNext ifTrue:[
             self searchNextText.
             ^ true
@@ -570,6 +573,11 @@
 
 !StringSearchTool methodsFor:'public'!
 
+escapePressed
+
+    self hideSearchBar.
+!
+
 searchBarOpened
 
     self setFocusToSearchTextView
@@ -719,5 +727,5 @@
 !StringSearchTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.7 2008-04-23 10:36:31 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.8 2008-04-28 10:47:50 fm Exp $'
 ! !