From e20db570eec34a6b8536ba0c4d321f8cccbf13db Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
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: http://svn.ruby-lang.org/repos/ruby/trunk@6842 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tcltklib/tcltklib.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'ext')

diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index 84a999d7e..3febc4331 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