* ext/tcltklib/tcltklib.c (ip_delete): when a tcltkip is deleted, destroy its root widget

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6842 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai 2004-08-31 07:09:49 +00:00
parent cf171264b8
commit 177fdc1f59
2 changed files with 6 additions and 0 deletions

View file

@ -1,3 +1,8 @@
Tue Aug 31 16:04:22 2004 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp>
* ext/tcltklib/tcltklib.c (ip_delete): when a tcltkip is deleted,
destroy its root widget
Tue Aug 31 12:30:36 2004 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp> Tue Aug 31 12:30:36 2004 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp>
* ext/tcltklib/tcltklib.c (del_root): fix SEGV * ext/tcltklib/tcltklib.c (del_root): fix SEGV

View file

@ -3094,6 +3094,7 @@ ip_delete(self)
{ {
struct tcltkip *ptr = get_ip(self); struct tcltkip *ptr = get_ip(self);
del_root(ptr->ip);
Tcl_DeleteInterp(ptr->ip); Tcl_DeleteInterp(ptr->ip);
return Qnil; return Qnil;