AbstractFileFinderApplicationComponent.st
changeset 12565 458c68d41bbd
parent 12338 2b456eb16d5d
child 12626 7ae48abfedac
child 12724 941f46a7d28d
equal deleted inserted replaced
12564:11b2d9fb6554 12565:458c68d41bbd
   363         ^ self.
   363         ^ self.
   364     ].
   364     ].
   365     app notNil ifTrue:[
   365     app notNil ifTrue:[
   366         openedAppl := app openApplForFile:file.
   366         openedAppl := app openApplForFile:file.
   367         (openedAppl notNil and:[openedAppl isTextEditor]) ifTrue:[
   367         (openedAppl notNil and:[openedAppl isTextEditor]) ifTrue:[
       
   368             openedAppl window assignKeyboardFocusToFirstInputField.    "/ should this be done in openApplForFile?
   368             contentsPattern := self contentsPatternHolder value.
   369             contentsPattern := self contentsPatternHolder value.
   369             (contentsPattern notNil and:[ contentsPattern notEmpty and:[contentsPattern ~= '*']]) ifTrue:[
   370             (contentsPattern notNil and:[ contentsPattern notEmpty and:[contentsPattern ~= '*']]) ifTrue:[
   370                 openedAppl searchForPattern:contentsPattern ignoreCase:(self ignoreCaseInContents value).
   371                 openedAppl searchForPattern:contentsPattern ignoreCase:(self ignoreCaseInContents value).
   371             ]        
   372             ]        
   372         ].
   373         ].
   475 ! !
   476 ! !
   476 
   477 
   477 !AbstractFileFinderApplicationComponent class methodsFor:'documentation'!
   478 !AbstractFileFinderApplicationComponent class methodsFor:'documentation'!
   478 
   479 
   479 version
   480 version
   480     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.8 2013-01-26 21:27:34 cg Exp $'
   481     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.9 2013-03-28 16:48:59 cg Exp $'
   481 !
   482 !
   482 
   483 
   483 version_CVS
   484 version_CVS
   484     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.8 2013-01-26 21:27:34 cg Exp $'
   485     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.9 2013-03-28 16:48:59 cg Exp $'
   485 ! !
   486 ! !
   486 
   487