diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-09-29 15:54:32 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-09-29 15:54:32 +0000 |
| commit | c18c0627411b37bf9298caa1c1bf577448c264cf (patch) | |
| tree | c5f5cf3df2d4627cc1f5d3aa69ae0fcc53a4f57c /ext/tk/tkutil.c | |
| parent | c22d1f2be340fda6b6a571e177a857c27b24a9d1 (diff) | |
| download | ruby-c18c0627411b37bf9298caa1c1bf577448c264cf.tar.gz ruby-c18c0627411b37bf9298caa1c1bf577448c264cf.tar.xz ruby-c18c0627411b37bf9298caa1c1bf577448c264cf.zip | |
* ext/tcltklib/tcltklib.c (ip_init): bug fix
* ext/tk/tkutil.c (get_eval_string_core): accept a Regexp object
* ext/tk/lib/multi-tk.rb: fix bug on 'exit' operation
* ext/tk/lib/tk/text.rb: 'tksearch' accepts a Regexp object as a
matting pattern argument
git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@6973 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/tkutil.c')
| -rw-r--r-- | ext/tk/tkutil.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/ext/tk/tkutil.c b/ext/tk/tkutil.c index 0595207fe..152860c56 100644 --- a/ext/tk/tkutil.c +++ b/ext/tk/tkutil.c @@ -31,6 +31,7 @@ static ID ID_path; static ID ID_at_path; static ID ID_to_eval; static ID ID_to_s; +static ID ID_source; static ID ID_downcase; static ID ID_install_cmd; static ID ID_merge_tklist; @@ -664,6 +665,9 @@ get_eval_string_core(obj, enc_flag, self) case T_NIL: return rb_str_new2(""); + case T_REGEXP: + return rb_funcall(obj, ID_source, 0, 0); + default: if (rb_obj_is_kind_of(obj, cTkObject)) { /* return rb_str_new3(rb_funcall(obj, ID_path, 0, 0)); */ @@ -1235,6 +1239,7 @@ Init_tkutil() ID_at_path = rb_intern("@path"); ID_to_eval = rb_intern("to_eval"); ID_to_s = rb_intern("to_s"); + ID_source = rb_intern("source"); ID_downcase = rb_intern("downcase"); ID_install_cmd = rb_intern("install_cmd"); ID_merge_tklist = rb_intern("_merge_tklist"); |