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

* ext/tk/tcltklib.c (Init_tcltklib): use rb_set_end_proc().

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@13105 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2007-08-18 08:44:44 +00:00
parent b9d4e5e742
commit f80d24ee6f
2 changed files with 6 additions and 5 deletions

View file

@ -4364,12 +4364,11 @@ delete_slaves(ip)
/* finalize operation */
static VALUE
static void
lib_mark_at_exit(self)
VALUE self;
{
at_exit = 1;
return Qnil;
}
static int
@ -7995,8 +7994,6 @@ Init_tcltklib()
/* --------------------------------------------------------------- */
rb_define_module_function(lib, "_mark_at_exit", lib_mark_at_exit, 0);
rb_define_module_function(lib, "mainloop", lib_mainloop, -1);
rb_define_module_function(lib, "mainloop_thread?",
lib_evloop_thread_p, 0);
@ -8133,7 +8130,7 @@ Init_tcltklib()
/* --------------------------------------------------------------- */
rb_eval_string("at_exit{ TclTkLib._mark_at_exit }");
rb_set_end_proc(lib_mark_at_exit, 0);
/* --------------------------------------------------------------- */