# HG changeset patch
# User ca
# Date 938436144 -7200
# Node ID fd0127c25b66f4918b6a1694259fe265177d10c6
# Parent  fd44af858001a6d5cde840b5a33cfbd6b82a6f7e
encoding & decoding
    bugfix

diff -r fd44af858001 -r fd0127c25b66 TabListEditor.st
--- 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