--- a/Tools__StringSearchTool.st	Wed Apr 23 12:34:32 2008 +0200
+++ b/Tools__StringSearchTool.st	Wed Apr 23 12:36:31 2008 +0200
@@ -468,7 +468,7 @@
 
     anEvent isKeyPressEvent ifTrue:[
 
-        Transcript showCR: anEvent key printString.
+"/        Transcript showCR: anEvent key printString.
 "/        anEvent key == #Find ifTrue:[
 "/            self halt.
 "/            self searchNextText.
@@ -719,5 +719,5 @@
 !StringSearchTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.6 2008-04-23 10:29:46 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.7 2008-04-23 10:36:31 fm Exp $'
 ! !