From e3d946f2503d01f6758911d458a9b9ef50e8080c Mon Sep 17 00:00:00 2001 From: nagai Date: Mon, 11 Apr 2005 11:14:33 +0000 Subject: * ext/tk/tcltklib.c (ip_finalize): adhoc patch to avoid SEGV when exit on Tcl/Tk8.3.x. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8303 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/tcltklib.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'ext/tk/tcltklib.c') diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index 1a00c7e757..21c9d904cc 100644 --- a/ext/tk/tcltklib.c +++ b/ext/tk/tcltklib.c @@ -4365,7 +4365,7 @@ delete_slaves(ip) ip_finalize(slave); Tcl_DeleteInterp(slave); - Tcl_Release(slave); + /* Tcl_Release(slave); */ } } @@ -4407,7 +4407,7 @@ ip_finalize(ip) delete_slaves(ip); /* delete root widget */ - Tcl_GlobalEval(ip, "destroy ."); + Tcl_GlobalEval(ip, "catch {destroy .}"); /* call finalize-hook-proc */ if (Tcl_GetCommandInfo(ip, finalize_hook_name, &info)) { @@ -4415,8 +4415,8 @@ ip_finalize(ip) Tcl_GlobalEval(ip, finalize_hook_name); } - DUMP1("call cancel aftern scripts"); - Tcl_GlobalEval(ip, "foreach id [after info] {after cancel $id}"); + DUMP1("cancel after scripts"); + Tcl_GlobalEval(ip, "catch {foreach id [after info] {after cancel $id}}"); Tcl_Release(ip); -- cgit v1.2.3