diff options
author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2002-06-28 14:42:46 +0000 |
---|---|---|
committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2002-06-28 14:42:46 +0000 |
commit | f0221db4626bb589f230bf239a7f9df83d7e444f (patch) | |
tree | 0bd6a2a6dde695b2ac3cf1193419676a78f914b9 /ext/tk/lib/tktext.rb | |
parent | ee852ed46d1a2a0f894e20e939b079c31e1cdb4b (diff) |
* re.c (rb_reg_expr_str): need to process backslashes properly.
* object.c (rb_any_to_a): declare Object#to_a to be obsolete.
* object.c (rb_Array): do not convert nil into [] automagically.
* object.c (rb_Integer): use "to_int" instead of
"to_i". [experimental]
* object.c (nil_to_f): new method.
* object.c (rb_Integer): Symbols and nil should cause error.
* object.c (rb_Float): nil should cause error.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2608 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib/tktext.rb')
-rw-r--r-- | ext/tk/lib/tktext.rb | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/ext/tk/lib/tktext.rb b/ext/tk/lib/tktext.rb index 9eb70dcd61..952c05f566 100644 --- a/ext/tk/lib/tktext.rb +++ b/ext/tk/lib/tktext.rb @@ -189,7 +189,7 @@ class TkText<TkTextWin when 'text', 'label', 'show', 'data', 'file' tk_call @path, 'tag', 'cget', tag, "-#{key}" else - tk_tcl2ruby tk_call @path, 'tag', 'cget', tag, "-#{key}" + tk_tcl2ruby tk_call(@path, 'tag', 'cget', tag, "-#{key}") end end @@ -636,7 +636,7 @@ class TkTextTag<TkObject when 'text', 'label', 'show', 'data', 'file' tk_call @t.path, 'tag', 'cget', @id, "-#{key}" else - tk_tcl2ruby tk_call @t.path, 'tag', 'cget', @id, "-#{key}" + tk_tcl2ruby tk_call(@t.path, 'tag', 'cget', @id, "-#{key}") end end @@ -854,7 +854,7 @@ class TkTextWindow<TkObject when 'text', 'label', 'show', 'data', 'file' tk_call @t.path, 'window', 'cget', @index, "-#{slot}" else - tk_tcl2ruby tk_call @t.path, 'window', 'cget', @index, "-#{slot}" + tk_tcl2ruby tk_call(@t.path, 'window', 'cget', @index, "-#{slot}") end end @@ -904,17 +904,17 @@ class TkTextWindow<TkObject if slot case slot.to_s when 'text', 'label', 'show', 'data', 'file' - conf = tk_split_simplelist(tk_call @t.path, 'window', 'configure', - @index, "-#{slot}") + conf = tk_split_simplelist(tk_call(@t.path, 'window', 'configure', + @index, "-#{slot}")) else - conf = tk_split_list(tk_call @t.path, 'window', 'configure', - @index, "-#{slot}") + conf = tk_split_list(tk_call(@t.path, 'window', 'configure', + @index, "-#{slot}")) end conf[0] = conf[0][1..-1] conf else - tk_split_simplelist(tk_call @t.path, 'window', 'configure', - @index).collect{|conflist| + tk_split_simplelist(tk_call(@t.path, 'window', 'configure', + @index)).collect{|conflist| conf = tk_split_simplelist(conflist) conf[0] = conf[0][1..-1] case conf[0] @@ -976,7 +976,7 @@ class TkTextImage<TkObject when 'text', 'label', 'show', 'data', 'file' tk_call @t.path, 'image', 'cget', @index, "-#{slot}" else - tk_tcl2ruby tk_call @t.path, 'image', 'cget', @index, "-#{slot}" + tk_tcl2ruby tk_call(@t.path, 'image', 'cget', @index, "-#{slot}") end end @@ -1003,17 +1003,17 @@ class TkTextImage<TkObject if slot case slot.to_s when 'text', 'label', 'show', 'data', 'file' - conf = tk_split_simplelist(tk_call @t.path, 'image', 'configure', - @index, "-#{slot}") + conf = tk_split_simplelist(tk_call(@t.path, 'image', 'configure', + @index, "-#{slot}")) else - conf = tk_split_list(tk_call @t.path, 'image', 'configure', - @index, "-#{slot}") + conf = tk_split_list(tk_call(@t.path, 'image', 'configure', + @index, "-#{slot}")) end conf[0] = conf[0][1..-1] conf else - tk_split_simplelist(tk_call @t.path, 'image', 'configure', - @index).collect{|conflist| + tk_split_simplelist(tk_call(@t.path, 'image', 'configure', + @index)).collect{|conflist| conf = tk_split_simplelist(conflist) conf[0] = conf[0][1..-1] case conf[0] |