summaryrefslogtreecommitdiff
path: root/ext
diff options
context:
space:
mode:
authornagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2004-08-31 07:09:49 +0000
committernagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2004-08-31 07:09:49 +0000
commit24053adc1e766d1041c355b070907fe9ac5f5dfe (patch)
tree573e2ee686bd377c9fc8d4ebf5454ccdd361d8f0 /ext
parentb064a106d53441a5caa5283168a9e558f4fedce1 (diff)
* 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/trunk@6842 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext')
-rw-r--r--ext/tcltklib/tcltklib.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index 84a999d7e45..3febc433139 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;