From cd84994255d9f33172021b1f74621fd93ff0c57a Mon Sep 17 00:00:00 2001 From: nagai Date: Tue, 9 Nov 2004 18:35:52 +0000 Subject: * ext/tcltklib/tcltklib.c: fix SEGV when compiled with Tcl/Tk8.3.x or older * ext/tk/lib/tkextlib/tile/style.rb: bug fix git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@7239 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tcltklib/tcltklib.c | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'ext/tcltklib') diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index 765417d925..67958d7beb 100644 --- a/ext/tcltklib/tcltklib.c +++ b/ext/tcltklib/tcltklib.c @@ -3306,9 +3306,12 @@ delete_slaves(ip) Tcl_Preserve(slave); +#if TCL_MAJOR_VERSION < 8 || ( TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 4) +#else if (!Tcl_InterpDeleted(slave)) { Tcl_Eval(slave, "foreach i [after info] { after cancel $i }"); } +#endif /* delete slaves of slave */ delete_slaves(slave); @@ -3356,9 +3359,12 @@ ip_free(ptr) Tcl_Eval(ptr->ip, finalize_hook_name); } +#if TCL_MAJOR_VERSION < 8 || ( TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 4) +#else if (!Tcl_InterpDeleted(ptr->ip)) { Tcl_Eval(ptr->ip, "foreach i [after info] {after cancel $i}"); } +#endif del_root(ptr->ip); @@ -3820,9 +3826,12 @@ ip_delete(self) /* Tcl_Preserve(ptr->ip); */ rbtk_preserve_ip(ptr); +#if TCL_MAJOR_VERSION < 8 || ( TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 4) +#else if (!Tcl_InterpDeleted(ptr->ip)) { Tcl_Eval(ptr->ip, "foreach i [after info] { after cancel $i }"); } +#endif del_root(ptr->ip); -- cgit v1.2.3