--- a/Tools__StringSearchTool.st	Tue Jan 22 12:24:41 2013 +0000
+++ b/Tools__StringSearchTool.st	Wed Jan 30 11:15:09 2013 +0000
@@ -70,6 +70,7 @@
 "
 ! !
 
+
 !StringSearchTool class methodsFor:'accessing'!
 
 lastMatchCase
@@ -92,6 +93,7 @@
     LastRestart := aBoolean
 ! !
 
+
 !StringSearchTool class methodsFor:'image specs'!
 
 closeSearchBarIcon
@@ -279,6 +281,7 @@
 (Q0_$1XZ#1X["A(]^QPX&34>?;&).&-Z/6]Y06MU1&AR/5UG15-N0EYF1&EO0&EN/&EP.6AN.%5N.5-M.5%P/UYQ.$)I.4)L0UQW/U-\+5YX5XFA') ; mask:((Depth1Image new) width: 22; height: 19; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C G@G0C@O0C@O8C@_8C@?<C@?<CA?>CC??CC??CC??#G??#O??3O??3_??;????????????????') ; yourself); yourself]
 ! !
 
+
 !StringSearchTool class methodsFor:'interface specs'!
 
 windowSpec
@@ -392,6 +395,7 @@
       )
 ! !
 
+
 !StringSearchTool methodsFor:'accessing'!
 
 closeBlock
@@ -442,6 +446,7 @@
     ^ searchTextView contents
 ! !
 
+
 !StringSearchTool methodsFor:'aspects'!
 
 matchCaseHolder
@@ -507,6 +512,7 @@
     "Created: / 15-06-2007 / 18:07:19 / Administrador"
 ! !
 
+
 !StringSearchTool methodsFor:'change & update'!
 
 matchCaseHolderChanged
@@ -517,6 +523,8 @@
 !
 
 processEvent:anEvent
+    <resource: #keyboard (#Escape #FindNext #FindPrev)>
+
     searchTextView hasFocus ifFalse:[^ false].
 
     anEvent isKeyPressEvent ifTrue:[
@@ -568,6 +576,7 @@
     "Modified: / 16-06-2007 / 09:21:27 / Administrador"
 ! !
 
+
 !StringSearchTool methodsFor:'images'!
 
 restartSearchBarIcon
@@ -580,6 +589,7 @@
     ^ self class warningSearchBarIcon
 ! !
 
+
 !StringSearchTool methodsFor:'initialization & release'!
 
 commonPostOpen
@@ -594,6 +604,7 @@
     "Created: / 15-06-2007 / 18:17:15 / Administrador"
 ! !
 
+
 !StringSearchTool methodsFor:'private'!
 
 searchReachEndOrBeginningIcon
@@ -625,6 +636,7 @@
     "Created: / 16-06-2007 / 06:29:00 / Administrador"
 ! !
 
+
 !StringSearchTool methodsFor:'public'!
 
 escapePressed
@@ -700,6 +712,7 @@
     searchTextView requestFocus.
 ! !
 
+
 !StringSearchTool methodsFor:'searching'!
 
 hideSearchBar
@@ -789,16 +802,18 @@
 "/            ignoreCase: ignoreCase 
 ! !
 
+
 !StringSearchTool class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__StringSearchTool.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.21 2013-01-17 11:18:42 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.20 2010/05/07 12:28:01 cg Exp §'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.21 2013-01-17 11:18:42 cg Exp $'
 !
 
 version_SVN
     ^ '$Id: Tools__StringSearchTool.st 7854 2012-01-30 17:49:41Z vranyj1 $'
 ! !
+