--- 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)].