--- 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 $'
! !