diff options
| author | (no author) <(no author)@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1999-04-08 10:14:35 +0000 |
|---|---|---|
| committer | (no author) <(no author)@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1999-04-08 10:14:35 +0000 |
| commit | fffbbdbb41b561ef9a515ca277595722e8a2fa11 (patch) | |
| tree | a20c0af74210b208df169649d51ebec736af513f /ext/tkutil | |
| parent | 529bc6166cb3e6083678c278d8a871e803420804 (diff) | |
This commit was manufactured by cvs2svn to create tag 'v1_2_4'.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_2_4@413 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tkutil')
| -rw-r--r-- | ext/tkutil/MANIFEST | 3 | ||||
| -rw-r--r-- | ext/tkutil/depend | 1 | ||||
| -rw-r--r-- | ext/tkutil/tkutil.c | 45 |
3 files changed, 0 insertions, 49 deletions
diff --git a/ext/tkutil/MANIFEST b/ext/tkutil/MANIFEST deleted file mode 100644 index 870e04b586..0000000000 --- a/ext/tkutil/MANIFEST +++ /dev/null @@ -1,3 +0,0 @@ -MANIFEST -tkutil.c -depend diff --git a/ext/tkutil/depend b/ext/tkutil/depend deleted file mode 100644 index e325a82c0f..0000000000 --- a/ext/tkutil/depend +++ /dev/null @@ -1 +0,0 @@ -tkutil.o: tkutil.c $(hdrdir)/ruby.h $(hdrdir)/config.h $(hdrdir)/defines.h diff --git a/ext/tkutil/tkutil.c b/ext/tkutil/tkutil.c deleted file mode 100644 index 58a382a41b..0000000000 --- a/ext/tkutil/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); -} - -static VALUE -tk_s_new(argc, argv, class) - int argc; - VALUE *argv; - VALUE class; -{ - VALUE obj = obj_alloc(class); - - rb_funcall2(obj, rb_intern("initialize"), argc, argv); - if (iterator_p()) rb_yield_0(obj, obj); - return obj; -} - -Init_tkutil() -{ - VALUE mTK = rb_define_module("TkUtil"); - VALUE cTK = rb_define_class("TkKernel", cObject); - - rb_define_singleton_method(mTK, "eval_cmd", tk_eval_cmd, -1); - - rb_define_singleton_method(cTK, "new", tk_s_new, -1); -} |