archive/ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2025-08-24 21:44:30 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 4

* ext/tcltklib/tcltklib.c (del_root): fix SEGV

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6840 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai 2004-08-31 03:32:33 +00:00
parent 2ad8cb5428
commit c8fa16c815
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
ext/tcltklib/tcltklib.c
View file

@ -2781,8 +2781,13 @@ ip_thread_tkwait(self, mode, target)
VALUE del_root(ip)
Tcl_Interp *ip;
{
Tk_Window main_win;
Tcl_Preserve(ip);
Tk_DestroyWindow(Tk_MainWindow(ip));
main_win = Tk_MainWindow(ip);
if (main_win != (Tk_Window)NULL) {
Tk_DestroyWindow(main_win);
}
Tcl_Release(ip);
return Qnil;
}