--- a/TabListEditor.st Mon Sep 27 14:04:03 1999 +0200
+++ b/TabListEditor.st Mon Sep 27 14:42:24 1999 +0200
@@ -1191,7 +1191,7 @@
doSave
"generate code for class and instance
"
- |cls code spec category mthd|
+ |cls code spec category mthd list|
(specClass notNil and:[specSelector notNil])
ifFalse:
@@ -1204,7 +1204,10 @@
listOfTabs isEmpty ifTrue:[^self information:'No tab list defined!!'].
spec := WriteStream on:String new.
- UISpecification prettyPrintSpecArray:(listOfTabs literalArrayEncoding) on:spec indent:5.
+ list := Array new:(listOfTabs size).
+ listOfTabs keysAndValuesDo:[:i :el|list at:i put:(el literalArrayEncoding)].
+
+ UISpecification prettyPrintSpecArray:list on:spec indent:5.
spec := spec contents.
"/ if that method already exists, do not overwrite the category