*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sat, 19 Jun 2004 14:54:05 +0200
changeset 1855 b340a5b9ff78
parent 1854 e7586b506654
child 1856 db8156ab00ae
*** empty log message ***
TabListEditor.st
--- a/TabListEditor.st	Wed Jun 16 10:47:11 2004 +0200
+++ b/TabListEditor.st	Sat Jun 19 14:54:05 2004 +0200
@@ -1621,7 +1621,7 @@
             , specSelector , '\'
             , (self class codeGenerationComment replChar:$!! withString:'!!!!')
             , '\\    "\'
-            , '     TabListEditor new openOnClass:' , cls name , ' andSelector:#' , specSelector , '\'
+            , '     TabListEditor new openOnClass: self andSelector:#' , specSelector , '\'
             , '    "\'.
 
     code := code