class: AbstractFileBrowser
changed:7 methods
Use CharacterWriteStream for Unicode compatibility
--- a/AbstractFileBrowser.st Wed Apr 22 19:21:44 2015 +0200
+++ b/AbstractFileBrowser.st Wed Apr 22 19:24:51 2015 +0200
@@ -5827,7 +5827,7 @@
selectedFiles do:[:each |
|out diffs|
- out := WriteStream on:(String new:100).
+ out := CharacterWriteStream new:100.
OperatingSystem
executeCommand:'cvs diff -b ',each baseName
outputTo:out
@@ -5986,7 +5986,7 @@
cmd := 'cvs'.
].
- stream := WriteStream on:''.
+ stream := CharacterWriteStream new.
stream
nextPutAll:cmd;
nextPutAll:' upd ';
@@ -5998,7 +5998,7 @@
makeFileNameArgumentString
|stream|
- stream := WriteStream on:''.
+ stream := CharacterWriteStream new.
self currentSelectedFiles do:[: file |
stream nextPut:$".
stream nextPutAll:file baseName.
@@ -6908,7 +6908,7 @@
].
].
- stream := WriteStream on:''.
+ stream := CharacterWriteStream new.
stream nextPutAllLines:info.
textBox := TextBox new.
@@ -6969,8 +6969,7 @@
].
].
- stream := WriteStream on:''.
- stream nextPutLine:'Duplicates:'.
+ stream := CharacterWriteStream with:'Duplicates:'.
(samePerFile keys asOrderedCollection sort:[:a :b | a asFilename baseName < b asFilename baseName])
do:[:origFile |
|sameFiles|
@@ -7120,11 +7119,10 @@
^ self.
].
].
- stream := WriteStream on:''.
+ stream := CharacterWriteStream new.
stream nextPutAllLines:info.
- titleStream := WriteStream on:''.
- titleStream nextPutAll:'File duplicates in directory'.
+ titleStream := CharacterWriteStream with:'File duplicates in directory'.
directories size == 1 ifTrue:[
titleStream nextPutAll:'y: '; nextPutAll: directories first asString.
] ifFalse:[
@@ -7246,7 +7244,7 @@
].
].
- stream := WriteStream on:''.
+ stream := CharacterWriteStream new.
alreadyPrinted := Set new.
imageFiles do:[:eachFile |
@@ -9656,10 +9654,10 @@
!AbstractFileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.589 2015-04-09 12:24:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.590 2015-04-22 17:24:51 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.589 2015-04-09 12:24:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.590 2015-04-22 17:24:51 stefan Exp $'
! !