From 825d46b353ebd32cd1a79d72990fc2cb4af17801 Mon Sep 17 00:00:00 2001 From: Dave Beazley Date: Mon, 10 Jul 2000 23:11:29 +0000 Subject: [PATCH] Fixed problem with %name() directive. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@562 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- SWIG/Source/Modules1.1/tcl8.cxx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SWIG/Source/Modules1.1/tcl8.cxx b/SWIG/Source/Modules1.1/tcl8.cxx index b8b68eacd..b23d3b51a 100644 --- a/SWIG/Source/Modules1.1/tcl8.cxx +++ b/SWIG/Source/Modules1.1/tcl8.cxx @@ -1291,7 +1291,7 @@ void TCL8::cpp_close_class() { if (have_destructor) { Printv(code, "static void _swig_delete_", class_name, "(void *obj) {\n", - tab4, Swig_name_destroy(class_name), "((", t->print_type(), ") obj);\n", + tab4, Swig_name_destroy(real_classname), "((", t->print_type(), ") obj);\n", "}\n",0); } @@ -1314,7 +1314,7 @@ void TCL8::cpp_close_class() { } else { Printf(code,",0"); } - Printv(code, ", _swig_", class_name, "_methods, _swig_", class_name, "_attributes };\n", 0); + Printv(code, ", _swig_", real_classname, "_methods, _swig_", real_classname, "_attributes };\n", 0); Printf(f_wrappers,"%s",code); Printv(cmd_info, tab4, "{ SWIG_prefix \"", class_name, "\", SwigObjectCmd, &_wrap_class_", class_name, "},\n", 0);