hg/stx-libtool: changeset 16639:629bf5cdd089

author	Claus Gittinger <cg@exept.de>
	Tue, 31 May 2016 11:28:11 +0200
changeset 16639	629bf5cdd089
parent 16637	21e8cf8f06bc
child 16640	3e0634b25d8e

#UI_ENHANCEMENT by cg class: FindFileApplication changed: #doFindFileNamed:directories:ignoreCaseInName:excludeFilesNamed:ignoreCaseInExcludedName:containingString:ignoreCaseInContents:notContainingString:ignoreCaseInNotContents:sameContentsAsFile:sameContentsAs:in:

--- a/FindFileApplication.st	Mon May 30 18:45:03 2016 +0200
+++ b/FindFileApplication.st	Tue May 31 11:28:11 2016 +0200
@@ -1694,8 +1694,19 @@
     and:[theSingleDirectory notNil]]])
     ifTrue:[
         [
-            |cmd line f|
+            |updateInfo cmd line f|
 
+            updateInfo :=
+                [
+                    self 
+                        changeInformationTo:('%1 found' bindWith:resultList size) 
+                        toTab:false.
+                ].
+
+            self window shown ifTrue:[
+                updateInfo value.
+            ].
+            
             cmd := 'locate '.
             ignCaseInName ifTrue:[
                 "/ cmd := cmd , '--ignore-case '
@@ -1712,6 +1723,7 @@
                 f := line asFilename.
                 (doesFileMatch value:f) ifTrue:[
                     resultList add:line.
+                    updateInfo value.
                 ]
             ].
         ] ensure:[