# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1390942740 -3600
# Node ID fffb59f18195050b873a9574e56fdb50c72dbd01
# Parent  ad458a6e1a83a8da0164952a8321237cca9715bd
class: TabListEditor
changed:
        #doGenerateAspectMethod
        #doSave
oops - package was not always preserved when compiling
(generated methods where reassigned)

diff -r ad458a6e1a83 -r fffb59f18195 TabListEditor.st
--- a/TabListEditor.st	Tue Jan 28 21:58:50 2014 +0100
+++ b/TabListEditor.st	Tue Jan 28 21:59:00 2014 +0100
@@ -1578,9 +1578,11 @@
             '    ^ list\' ,
             '!! !!\\'.
 
-    (ReadStream on:(code withCRs)) fileIn
+    Class packageQuerySignal answer:cls package do:[
+        (ReadStream on:(code withCRs)) fileIn
+    ]
 
-
+    "Modified: / 28-01-2014 / 21:57:09 / cg"
 !
 
 doMoveTabUpOrDown:what
@@ -1679,8 +1681,9 @@
     Class packageQuerySignal 
         answer:package
         do:[
-            (ReadStream on:code) fileIn.
-
+            Class packageQuerySignal answer:cls package do:[
+                (ReadStream on:code) fileIn.
+            ].
             (cls canUnderstand:specSelector) ifFalse:[
                 (YesNoBox confirm:(resources string:'Generate aspect method for tabList (#%1)?' with:specSelector)) ifTrue:[
                     self doGenerateAspectMethod
@@ -1691,6 +1694,8 @@
     self addHistoryEntryForClass:cls selector:specSelector.
     self clearModified.
     hasSaved  := true.
+
+    "Modified: / 28-01-2014 / 21:56:54 / cg"
 !
 
 openDocumentation