diff -r 792f8f13426a -r 0a519d63778c AbstractFileBrowser.st --- a/AbstractFileBrowser.st Fri Jul 27 10:13:12 2012 +0200 +++ b/AbstractFileBrowser.st Fri Jul 27 11:06:47 2012 +0200 @@ -5874,7 +5874,6 @@ "Created: / 15-01-2012 / 19:43:08 / cg" ! ! - !AbstractFileBrowser methodsFor:'menu actions-tools'! allFilesInSelectedDirectoriesForWhich:aBlock @@ -6508,9 +6507,7 @@ ]. stream := WriteStream on:''. - info do:[:el| - stream nextPutLine:el. - ]. + stream nextPutAllLines:info. textBox := TextBox new. textBox initialText:(stream contents). @@ -6527,7 +6524,7 @@ textBox maxExtent:Screen current extent. textBox openModeless. - "Modified: / 25-07-2006 / 09:07:22 / cg" + "Modified: / 27-07-2012 / 09:29:00 / cg" ! fileFindDuplicateFile @@ -6722,9 +6719,8 @@ ]. ]. stream := WriteStream on:''. - info do:[:el| - stream nextPutLine:el. - ]. + stream nextPutAllLines:info. + titleStream := WriteStream on:''. titleStream nextPutAll:'File duplicates in director'. directories size == 1 ifTrue:[ @@ -6760,7 +6756,7 @@ textBox maxExtent:Screen current extent. textBox openModeless. "/ showAtPointer. - "Modified: / 25-07-2006 / 09:07:25 / cg" + "Modified: / 27-07-2012 / 09:29:14 / cg" ! fileFindFile @@ -8185,7 +8181,6 @@ ^ false ! ! - !AbstractFileBrowser methodsFor:'presentation'! getModeString:modeBits @@ -9100,9 +9095,9 @@ !AbstractFileBrowser class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.496 2012-07-21 17:01:39 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.497 2012-07-27 09:06:47 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.496 2012-07-21 17:01:39 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.497 2012-07-27 09:06:47 cg Exp $' ! !