--- a/Tools__StringSearchToolForTextView.st	Mon Apr 28 12:47:50 2008 +0200
+++ b/Tools__StringSearchToolForTextView.st	Mon Apr 28 12:48:02 2008 +0200
@@ -318,6 +318,12 @@
     ^ [self returnFocusToTextView]
 !
 
+escapePressed
+
+    self returnFocusToTextView. 
+    super escapePressed.
+!
+
 returnFocusToTextView
 
     textView takeFocus
@@ -405,5 +411,5 @@
 !StringSearchToolForTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchToolForTextView.st,v 1.7 2008-04-23 10:34:32 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchToolForTextView.st,v 1.8 2008-04-28 10:48:02 fm Exp $'
 ! !