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