AbstractFileFinderApplicationComponent.st
changeset 12338 2b456eb16d5d
parent 12112 0012158092fb
child 12401 4714b9640528
child 12565 458c68d41bbd
equal deleted inserted replaced
12337:024269332905 12338:2b456eb16d5d
   142                     t > 100 ifTrue:[
   142                     t > 100 ifTrue:[
   143                         t := ((t / 1000) asFixedPoint:2) printString , ' s'
   143                         t := ((t / 1000) asFixedPoint:2) printString , ' s'
   144                     ] ifFalse:[
   144                     ] ifFalse:[
   145                         t := t printString , ' ms'
   145                         t := t printString , ' ms'
   146                     ].
   146                     ].
   147                     message := 'Found %1 file%2 in %3' bindWith:(resultList size) with:(resultList size == 1 ifTrue:'' ifFalse:'s') with:t.
   147                     message := 'Found %1 file%2 in %3.' bindWith:(resultList size) with:(resultList size == 1 ifTrue:'' ifFalse:'s') with:t.
   148                     self enableStop value:false.
   148                     self enableStop value:false.
   149                     self enableSearch value:true.
   149                     self enableSearch value:true.
   150                     self changeInformationTo:'Find File ' , '- done.' toTab:true.
   150                     self changeInformationTo:'Find File ' , '- done.' toTab:true.
   151                 ].
   151                 ].
   152             ] ensure:[
   152             ] ensure:[
   172             searchTask interruptWith:[stopSignal raiseRequest].
   172             searchTask interruptWith:[stopSignal raiseRequest].
   173         ]
   173         ]
   174     ].
   174     ].
   175     self enableStop value:false.
   175     self enableStop value:false.
   176     self enableSearch value:true.
   176     self enableSearch value:true.
   177     self changeInformationTo:'Find File ' , '- search stopped' toTab:true.
   177     self changeInformationTo:'Find File ' , '- search stopped.' toTab:true.
   178 
   178 
   179     "Modified: / 11-01-2012 / 22:42:07 / cg"
   179     "Modified: / 11-01-2012 / 22:42:07 / cg"
   180 !
   180 !
   181 
   181 
   182 stopSearchTask
   182 stopSearchTask
   475 ! !
   475 ! !
   476 
   476 
   477 !AbstractFileFinderApplicationComponent class methodsFor:'documentation'!
   477 !AbstractFileFinderApplicationComponent class methodsFor:'documentation'!
   478 
   478 
   479 version
   479 version
   480     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.7 2013-01-17 11:16:00 cg Exp $'
   480     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.8 2013-01-26 21:27:34 cg Exp $'
   481 !
   481 !
   482 
   482 
   483 version_CVS
   483 version_CVS
   484     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.7 2013-01-17 11:16:00 cg Exp $'
   484     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileFinderApplicationComponent.st,v 1.8 2013-01-26 21:27:34 cg Exp $'
   485 ! !
   485 ! !
   486 
   486