diff options
Diffstat (limited to 'ext/tk/tkutil.c')
| -rw-r--r-- | ext/tk/tkutil.c | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/ext/tk/tkutil.c b/ext/tk/tkutil.c deleted file mode 100644 index b42069e234..0000000000 --- a/ext/tk/tkutil.c +++ /dev/null @@ -1,45 +0,0 @@ -/************************************************ - - tk.c - - - $Author$ - $Date$ - created at: Fri Nov 3 00:47:54 JST 1995 - -************************************************/ - -#include "ruby.h" - -static VALUE -tk_eval_cmd(argc, argv) - int argc; - VALUE argv[]; -{ - VALUE cmd, rest; - - rb_scan_args(argc, argv, "1*", &cmd, &rest); - return rb_eval_cmd(cmd, rest, 0); -} - -static VALUE -tk_s_new(argc, argv, klass) - int argc; - VALUE *argv; - VALUE klass; -{ - VALUE obj = rb_class_new_instance(argc, argv, klass); - - if (rb_block_given_p()) rb_obj_instance_eval(0, 0, obj); - return obj; -} - -void -Init_tkutil() -{ - VALUE mTK = rb_define_module("TkUtil"); - VALUE cTK = rb_define_class("TkKernel", rb_cObject); - - rb_define_singleton_method(mTK, "eval_cmd", tk_eval_cmd, -1); - - rb_define_singleton_method(cTK, "new", tk_s_new, -1); -} |
