mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
* 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
This commit is contained in:
parent
b064a106d5
commit
24053adc1e
2 changed files with 6 additions and 0 deletions
|
@ -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>
|
||||
|
||||
* ext/tcltklib/tcltklib.c (del_root): fix SEGV
|
||||
|
|
|
@ -3094,6 +3094,7 @@ ip_delete(self)
|
|||
{
|
||||
struct tcltkip *ptr = get_ip(self);
|
||||
|
||||
del_root(ptr->ip);
|
||||
Tcl_DeleteInterp(ptr->ip);
|
||||
|
||||
return Qnil;
|
||||
|
|
Loading…
Reference in a new issue