class: AbstractFileBrowser
authorClaus Gittinger <cg@exept.de>
Sun, 24 Aug 2014 16:40:56 +0200
changeset 14715 e806729125fc
parent 14714 840cfa433ac5
child 14716 ef075895beeb
class: AbstractFileBrowser changed: #fileFindDuplicates
AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Mon Aug 18 21:34:03 2014 +0200
+++ b/AbstractFileBrowser.st	Sun Aug 24 16:40:56 2014 +0200
@@ -7080,7 +7080,8 @@
     textBox title:(titleStream contents).
     textBox readOnly:true.
     textBox noCancel.
-    stream := WriteStream on:'Duplicates in '.
+    stream := WriteStream on:''.
+    stream nextPutAll:'Duplicates in '.
     directories do:[ :aDirectory |
         stream nextPutAll:aDirectory baseName.
         stream space.
@@ -9573,10 +9574,10 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.569 2014-08-12 12:18:12 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.570 2014-08-24 14:40:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.569 2014-08-12 12:18:12 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.570 2014-08-24 14:40:56 cg Exp $'
 ! !