kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

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

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

4
ChangeLog
View file

@ -1,3 +1,7 @@
Tue Aug 31 12:30:36 2004 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp>
* ext/tcltklib/tcltklib.c (del_root): fix SEGV
Mon Aug 30 21:50:14 2004 Dave Thomas <dave@pragprog.com>
* object.c: Add RDoc for Module.included.

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;
}