DirectoryContentsBrowser.st
changeset 7672 f7ad4a06bbec
parent 7636 965d7ee011d8
child 7714 3ac0b3a85397
--- a/DirectoryContentsBrowser.st	Wed Feb 28 15:41:14 2007 +0100
+++ b/DirectoryContentsBrowser.st	Wed Feb 28 15:41:21 2007 +0100
@@ -1177,17 +1177,15 @@
 
     |info filterBox clr|
 
-    noOfAddedFiles = noOfFiles ifTrue:[
-        info := '%1 file%3'.
-    ] ifFalse:[
-        info := '%1 file%3 (%2 total)'.
+    info := (noOfAddedFiles == 1 ifTrue:['%1 file'] ifFalse:['%1 files']).
+    noOfAddedFiles = noOfFiles ifFalse:[
+        info := info,' (%2 total)'.
     ].
     self shownFiles 
         value:(resources 
                 string:info 
                 with:noOfAddedFiles 
-                with:noOfFiles
-                with:(noOfAddedFiles == 1 ifTrue:[''] ifFalse:['s'])).
+                with:noOfFiles).
 
     filterBox := self filterValueBox value.
     filterBox isNil ifTrue:[^ self ].
@@ -3264,5 +3262,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.203 2007-02-07 21:12:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.204 2007-02-28 14:41:21 cg Exp $'
 ! !