diff options
| author | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-08-18 08:44:44 +0000 |
|---|---|---|
| committer | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-08-18 08:44:44 +0000 |
| commit | f5a0dbcb8b54001aa27170e7366dda88986a1f69 (patch) | |
| tree | f30815471f32e10f7114126cb85f78f0a2a6bd31 /ext | |
| parent | 769ff25033ff891e1487dfc7b714f0daa6ebdf65 (diff) | |
| download | ruby-f5a0dbcb8b54001aa27170e7366dda88986a1f69.tar.gz ruby-f5a0dbcb8b54001aa27170e7366dda88986a1f69.tar.xz ruby-f5a0dbcb8b54001aa27170e7366dda88986a1f69.zip | |
* ext/tk/tcltklib.c (Init_tcltklib): use rb_set_end_proc().
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@13105 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/tk/tcltklib.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index d057abbda..d963f9231 100644 --- a/ext/tk/tcltklib.c +++ b/ext/tk/tcltklib.c @@ -4358,12 +4358,11 @@ delete_slaves(ip) /* finalize operation */ -static VALUE +static void lib_mark_at_exit(self) VALUE self; { at_exit = 1; - return Qnil; } static int @@ -7978,8 +7977,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); @@ -8116,7 +8113,7 @@ Init_tcltklib() /* --------------------------------------------------------------- */ - rb_eval_string("at_exit{ TclTkLib._mark_at_exit }"); + rb_set_end_proc(lib_mark_at_exit, 0); /* --------------------------------------------------------------- */ |