# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1429723491 -7200
# Node ID d7db0a09d972c98342ca9973d8a320ac259dffed
# Parent  558245ed3e2d94a77dfab1173a3600b374bfdd2e
class: AbstractFileBrowser
changed:7 methods
    Use CharacterWriteStream for Unicode compatibility

diff -r 558245ed3e2d -r d7db0a09d972 AbstractFileBrowser.st
--- 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 $'
 ! !