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

diff -r a5fcdace63ba -r 76129ae4dadd TabListEditor.st
--- a/TabListEditor.st	Fri Sep 30 16:47:59 2016 +0200
+++ b/TabListEditor.st	Fri Sep 30 16:48:16 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libtool2' }"
 
+"{ NameSpace: Smalltalk }"
+
 ResourceSpecEditor subclass:#TabListEditor
 	instanceVariableNames:'listOfTabs'
 	classVariableNames:''
@@ -1641,17 +1645,15 @@
 
     |cls code spec category package mthd list|
 
-    (specClass notNil and:[specSelector notNil])
-    ifFalse:
-    [
-        ^self doSaveAs
+    (specClass notNil and:[specSelector notNil]) ifFalse:[
+        ^ self doSaveAs
     ].
 
     cls := self resolveName: specClass.
 
     listOfTabs isEmpty ifTrue:[^self information:'No tab list defined!!'].
 
-    spec  := WriteStream on:String new.
+    spec  := WriteStream on:''.
     list := Array new:(listOfTabs size).
     listOfTabs keysAndValuesDo:[:i :el|list at:i put:(el literalArrayEncoding)].