From 177fdc1f59fef1f14b8eb284fa37e896ef883ead Mon Sep 17 00:00:00 2001 From: nagai Date: Tue, 31 Aug 2004 07:09:49 +0000 Subject: * 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 --- ChangeLog | 5 +++++ ext/tcltklib/tcltklib.c | 1 + 2 files changed, 6 insertions(+) diff --git a/ChangeLog b/ChangeLog index 30fd4c338e..80a0b15bda 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +Tue Aug 31 16:04:22 2004 Hidetoshi NAGAI + + * ext/tcltklib/tcltklib.c (ip_delete): when a tcltkip is deleted, + destroy its root widget + Tue Aug 31 12:30:36 2004 Hidetoshi NAGAI * ext/tcltklib/tcltklib.c (del_root): fix SEGV diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index 84a999d7e4..3febc43313 100644 --- a/ext/tcltklib/tcltklib.c +++ b/ext/tcltklib/tcltklib.c @@ -3094,6 +3094,7 @@ ip_delete(self) { struct tcltkip *ptr = get_ip(self); + del_root(ptr->ip); Tcl_DeleteInterp(ptr->ip); return Qnil; -- cgit v1.2.3