AbstractFileBrowser.st
changeset 11688 0a519d63778c
parent 11642 72cd5c5e2615
child 11712 ed8877d9356b
--- 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 $'
 ! !