# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1475246736 -7200
# Node ID dd50ec5f3c862b3d2f3c2966a9d4e25a72e68c29
# Parent  4ecde59f7563e158632b32e459429e25f93a4ae8
#OTHER by stefan
Use (*WriteStream on:'') instead of (*WriteStream on:String new)

diff -r 4ecde59f7563 -r dd50ec5f3c86 UIPainterView.st
--- a/UIPainterView.st	Fri Sep 16 13:05:17 2016 +0200
+++ b/UIPainterView.st	Fri Sep 30 16:45:36 2016 +0200
@@ -1701,13 +1701,13 @@
 
     specArray := spec literalArrayEncoding.
 
-    str  := WriteStream on:String new.
+    str  := WriteStream on:''.
     UISpecification prettyPrintSpecArray:specArray on:str indent:4.
     specCode := str contents.
 
     (specCode includes:$!!) ifTrue:[
         "/ oops - must be chunk format ...
-        str  := WriteStream on:String new.
+        str  := WriteStream on:''.
         str nextPutAllAsChunk:specCode.
         specCode := str contents.
     ].