[ruby-dev:25988] Re: tktable doesn't have selection_present

永井@知能．九工大です．

From: H.Yamamoto <[e-mail]>
Subject: [ruby-dev:25986] Re: tktable doesn't have selection_present
Date: Mon, 4 Apr 2005 11:07:08 +0900
Message-ID: <[e-mail]>
> 別件ですが、demos-jp/goldberg.rb が 1024x768 だと表示しきれなくて
> 下のほうのアニメーションが見えなかったので、こうしてもいいでしょうか。

う〜む．
フォントを 'Arial 9' くらいに小さくして，
wraplength を 10i くらいにして，
さらにテキストの改行を減らすというのではダメですか？

> あと、下のようにしないと化けてしまったのですが、これは意図された動作でしょうか。

ごめんなさい．バグです．
TkVariable に配列をセットする際の文字コード変換が
適切に行えていませんでした．
多分，以下の修正で OK だと思います．
以下で問題がなく，かつ手が空いていれば
代理で commit しておいていただけると助かります．
手が空いていないようでしたら，数日中に時間があるときに commit します．

Index: ext/tk/lib/tk.rb
===================================================================
RCS file: /var/cvs/src/ruby/ext/tk/lib/tk.rb,v
retrieving revision 1.102.2.44
diff -u -r1.102.2.44 tk.rb
--- ext/tk/lib/tk.rb	2 Apr 2005 08:02:09 -0000	1.102.2.44
+++ ext/tk/lib/tk.rb	4 Apr 2005 09:14:28 -0000
@@ -287,19 +287,19 @@
     TkCore::INTERP._split_tklist(str)
   end
 
-  def array2tk_list(ary)
+  def array2tk_list(ary, enc=nil)
     return "" if ary.size == 0
 
     dst = ary.collect{|e|
       if e.kind_of? Array
-        array2tk_list(e)
+        array2tk_list(e, enc)
       elsif e.kind_of? Hash
         tmp_ary = []
         #e.each{|k,v| tmp_ary << k << v }
         e.each{|k,v| tmp_ary << "-#{_get_eval_string(k)}" << v }
-        array2tk_list(tmp_ary)
+        array2tk_list(tmp_ary, enc)
       else
-        _get_eval_string(e)
+        _get_eval_string(e, enc)
       end
     }
     TkCore::INTERP._merge_tklist(*dst)
@@ -422,16 +422,16 @@
     list
   end
 
-  def array2tk_list(ary)
+  def array2tk_list(ary, enc=nil)
     ary.collect{|e|
       if e.kind_of? Array
-        "{#{array2tk_list(e)}}"
+        "{#{array2tk_list(e, enc)}}"
       elsif e.kind_of? Hash
         # "{#{e.to_a.collect{|ee| array2tk_list(ee)}.join(' ')}}"
         e.each{|k,v| tmp_ary << "-#{_get_eval_string(k)}" << v }
-        array2tk_list(tmp_ary)
+        array2tk_list(tmp_ary, enc)
       else
-        s = _get_eval_string(e)
+        s = _get_eval_string(e, enc)
         (s.index(/\s/) || s.size == 0)? "{#{s}}": s
       end
     }.join(" ")
@@ -3120,7 +3120,7 @@
           when /^(#{__strval_optkeys.join('|')})$/
             conf = tk_split_simplelist(_fromUTF8(tk_call_without_enc(*(__confinfo_cmd << "-#{slot}"))))
           else
-            conf = tk_split_list(_fromUTF8(tk_send_without_enc(*(__confinfo_cmd << "-#{slot}"))))
+            conf = tk_split_list(_fromUTF8(tk_call_without_enc(*(__confinfo_cmd << "-#{slot}"))))
           end
           conf[__configinfo_struct[:key]] = 
             conf[__configinfo_struct[:key]][1..-1]
Index: ext/tk/lib/tk/variable.rb
===================================================================
RCS file: /var/cvs/src/ruby/ext/tk/lib/tk/variable.rb,v
retrieving revision 1.1.2.13
diff -u -r1.1.2.13 variable.rb
--- ext/tk/lib/tk/variable.rb	2 Apr 2005 08:02:10 -0000	1.1.2.13
+++ ext/tk/lib/tk/variable.rb	4 Apr 2005 09:14:28 -0000
@@ -468,7 +468,7 @@
                                 _get_eval_string(v, true))
       }
       self.value
-    elsif val.kind_of?(Array)
+#    elsif val.kind_of?(Array)
 =begin
       INTERP._set_global_var(@id, '')
       val.each{|v|
@@ -481,7 +481,7 @@
       }
       self.value
 =end
-      _fromUTF8(INTERP._set_global_var(@id, array2tk_list(val)))
+#      _fromUTF8(INTERP._set_global_var(@id, array2tk_list(val, true)))
     else
       #_fromUTF8(INTERP._set_global_var(@id, _toUTF8(_get_eval_string(val))))
       _fromUTF8(INTERP._set_global_var(@id, _get_eval_string(val, true)))
@@ -576,7 +576,7 @@
           #INTERP._invoke_without_enc('unset', @id+'(0)')
         elsif val.kind_of?(Array)
           a = []
-          val.each_with_index{|e,i| a.push(i); a.push(array2tk_list(e))}
+          val.each_with_index{|e,i| a.push(i); a.push(array2tk_list(e, true))}
           #s = '"' + a.join(" ").gsub(/[\[\]$"]/, '\\\\\&') + '"'
           s = '"' + a.join(" ").gsub(/[\[\]$"\\]/, '\\\\\&') + '"'
           INTERP._eval(Kernel.format('global %s; unset %s; array set %s %s', 
@@ -588,7 +588,7 @@
         elsif  val.kind_of?(Hash)
           #s = '"' + val.to_a.collect{|e| array2tk_list(e)}.join(" ")\
           #                      .gsub(/[\[\]$"]/, '\\\\\&') + '"'
-          s = '"' + val.to_a.collect{|e| array2tk_list(e)}.join(" ")\
+          s = '"' + val.to_a.collect{|e| array2tk_list(e, true)}.join(" ")\
                                 .gsub(/[\[\]$\\"]/, '\\\\\&') + '"'
           INTERP._eval(Kernel.format('global %s; unset %s; array set %s %s', 
                                      @id, @id, @id, s))

-- 
                                       永井 秀利 （九工大 知能情報）
                                           [e-mail]