diff options
Diffstat (limited to 'ext/tcltklib/tcltklib.c')
-rw-r--r-- | ext/tcltklib/tcltklib.c | 28 |
1 files changed, 18 insertions, 10 deletions
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index 407894c2d2..f598ed4a0d 100644 --- a/ext/tcltklib/tcltklib.c +++ b/ext/tcltklib/tcltklib.c @@ -4,7 +4,7 @@ * Oct. 24, 1997 Y. Matsumoto */ -#define TCLTKLIB_RELEASE_DATE "2005-03-30" +#define TCLTKLIB_RELEASE_DATE "2005-04-12" #include "ruby.h" #include "rubysig.h" @@ -4407,27 +4407,35 @@ ip_finalize(ip) delete_slaves(ip); /* delete root widget */ - if ( Tcl_GetCommandInfo(ip, "catch", &info) - && Tcl_GetCommandInfo(ip, "destroy", &info) ) { + DUMP1("check `destroy'"); + if (Tcl_GetCommandInfo(ip, "destroy", &info)) { DUMP1("call `destroy'"); - Tcl_GlobalEval(ip, "catch {destroy .}"); + Tcl_GlobalEval(ip, "destroy ."); } /* call finalize-hook-proc */ + DUMP1("check `finalize-hook-proc'"); if (Tcl_GetCommandInfo(ip, finalize_hook_name, &info)) { DUMP2("call finalize hook proc '%s'", finalize_hook_name); Tcl_GlobalEval(ip, finalize_hook_name); } - DUMP1("cancel after scripts"); + DUMP1("cancel after callbacks"); +#define AFTER_CANCEL_CMD "foreach id [after info] {after cancel $id}" DUMP1("check `foreach' & `after'"); - if ( Tcl_GetCommandInfo(ip, "catch", &info) - && Tcl_GetCommandInfo(ip, "foreach", &info) + if ( Tcl_GetCommandInfo(ip, "foreach", &info) && Tcl_GetCommandInfo(ip, "after", &info) ) { - DUMP1("call `foreach' & `after'"); - Tcl_GlobalEval(ip, - "catch {foreach id [after info] {after cancel $id}}"); + char *cmd; + if ((cmd = Tcl_Alloc(strlen(AFTER_CANCEL_CMD) + 1)) == (char*)NULL) { + DUMP1("cancel after callbacks : cannot allocate memory"); + } else { + DUMP1("call `foreach' & `after'"); + strcpy(cmd, AFTER_CANCEL_CMD); + Tcl_GlobalEval(ip, cmd); + Tcl_Free(cmd); + } } +#undef AFTER_CANCEL_CMD Tcl_Release(ip); |