diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-03 02:34:02 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-03 02:34:02 +0000 |
commit | a144ffe53f0293bc087a741484489aa426ab7989 (patch) | |
tree | 17c9b24f0b4e0f98aa2ce974c20102ad8fce1582 /ext | |
parent | f820839f17c05b9e67388db44fa98c9e4cde3a17 (diff) | |
download | ruby-a144ffe53f0293bc087a741484489aa426ab7989.tar.gz |
*bug fix ( NOT MAINTAINED : only for running 'line2.rb' demo. )
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4292 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext')
-rw-r--r-- | ext/tcltklib/lib/tcltk.rb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/ext/tcltklib/lib/tcltk.rb b/ext/tcltklib/lib/tcltk.rb index b7d0f11bec..a6bc773b96 100644 --- a/ext/tcltklib/lib/tcltk.rb +++ b/ext/tcltklib/lib/tcltk.rb @@ -93,11 +93,9 @@ class TclTkInterpreter # ruby_fmt command format arguments by `format' and call `ruby' command # (notice ruby command receives only one argument) if $DEBUG - @ip._eval("proc ruby_fmt {fmt args} { puts \"ruby_fmt: $fmt -$args\" ; set cmd [list ruby [format $fmt $args]] ; uplevel $cmd }") + @ip._eval("proc ruby_fmt {fmt args} { puts \"ruby_fmt: $fmt $args\" ; set cmd [list ruby [format $fmt $args]] ; uplevel $cmd }") else - @ip._eval("proc ruby_fmt {fmt args} { set cmd [list ruby [format -$fmt $args]] ; uplevel $cmd }") + @ip._eval("proc ruby_fmt {fmt args} { set cmd [list ruby [format $fmt $args]] ; uplevel $cmd }") end # @ip._get_eval_string(*args): generate string to evaluate in tcl interpreter |