diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-08-31 07:09:49 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-08-31 07:09:49 +0000 |
| commit | e20db570eec34a6b8536ba0c4d321f8cccbf13db (patch) | |
| tree | 573e2ee686bd377c9fc8d4ebf5454ccdd361d8f0 /ext/tcltklib/tcltklib.c | |
| parent | 96fb56276fc1faf959be7675fed08f2b4d807c41 (diff) | |
| download | ruby-e20db570eec34a6b8536ba0c4d321f8cccbf13db.tar.gz ruby-e20db570eec34a6b8536ba0c4d321f8cccbf13db.tar.xz ruby-e20db570eec34a6b8536ba0c4d321f8cccbf13db.zip | |
* 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
Diffstat (limited to 'ext/tcltklib/tcltklib.c')
| -rw-r--r-- | ext/tcltklib/tcltklib.c | 1 |
1 files changed, 1 insertions, 0 deletions
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; |