--- a/AbstractFileFinderApplicationComponent.st	Thu Mar 28 16:26:43 2013 +0100
+++ b/AbstractFileFinderApplicationComponent.st	Thu Mar 28 17:48:59 2013 +0100
@@ -365,6 +365,7 @@
     app notNil ifTrue:[
         openedAppl := app openApplForFile:file.
         (openedAppl notNil and:[openedAppl isTextEditor]) ifTrue:[
+            openedAppl window assignKeyboardFocusToFirstInputField.    "/ should this be done in openApplForFile?
             contentsPattern := self contentsPatternHolder value.
             (contentsPattern notNil and:[ contentsPattern notEmpty and:[contentsPattern ~= '*']]) ifTrue:[
                 openedAppl searchForPattern:contentsPattern ignoreCase:(self ignoreCaseInContents value).
@@ -477,10 +478,10 @@
 !AbstractFileFinderApplicationComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.8 2013-01-26 21:27:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.9 2013-03-28 16:48:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.8 2013-01-26 21:27:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.9 2013-03-28 16:48:59 cg Exp $'
 ! !