[ruby-list:14757] Re: TkTextTag#ranges

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

From: Tomoyuki Kosimizu <[e-mail]>
Subject: [ruby-list:14702] TkTextTag#ranges
Date: Tue, 1 Jun 1999 00:51:22 +0900
Message-ID: <[e-mail]>
greentea> ruby 1.2.5 + Tk 8.0で、TkTextTag#rangesが返す配列の配列の要素が
greentea> Floatになっているのですが、次のようなコードで問題が起きます：

これは tk_split_list メソッドの問題ですね．
こいつでは，数値とみなしうるものは強引に数値化してしまってますので．
tk_split_simplelist の方を使って文字列で返すようにしましたが，
時間がなくて他の部分に影響しないかを検証できていません．
元々，文字列として扱うべきものなんで，問題ないとは思うのですが，
すみませんが，テストをお願いします．

greentea> もう１つ、上のコードを次のように書けないものでしょうか？
greentea> tag = TkTextTag.new(txt) {
greentea>   background 'green'
greentea>   ...

これは tktext.rb にバグがあったために動作していませんでした．

# こんなバグがいままで見つからなかったとは．．．;;;^_^;;;

greentea> あるいは：
greentea> tag.background 'green'

これはご自分で定義するか，それに近いものとして tag['background']='green' 
あたりを使うかされてください．(^_^;

# 全部をメソッド定義しているときりがなさそうですし．(^_^)

greentea> ド呼び出しにしたいのです。さらに、できれば：
greentea> TkTextTag.new(parent, index1, index2) {
greentea>   background 'green'
greentea>   ...
greentea> のような形でタグを作れると、TkCanvasのオブジェクト(TkcArcなど)と
greentea> 統一感が持てて嬉しいのですが。

対処してみました．
以上の修正を行った diff を最後に添えておきます．
ちょうど手もとにあったのが 1.2.2 だったので，その tktext.rb からの差分です．

# 確認の上，本家のソースの修正をお願い致します．> まつもとさん
-- 
                                         永井 秀利 （九工大 知能情報）
                                             [e-mail]

--- tktext.rb.orig	Thu Jun  3 11:54:55 1999
+++ tktext.rb	Thu Jun  3 12:42:18 1999
@@ -289,7 +289,7 @@
 	  || key == 'latinfont' || key == 'asciifont' )
 	tagfont_configure({key=>val})
       else
-	tk_call 'tag', 'configure', tag, "-#{key}", val
+	tk_send 'tag', 'configure', tag, "-#{key}", val
       end
     end
   end
@@ -429,7 +429,18 @@
   include TkTreatTagFont
 
   $tk_text_tag = 'tag0000'
-  def initialize(parent, keys=nil)
+#  def initialize(parent, keys=nil)
+#    if not parent.kind_of?(TkText)
+#      fail format("%s need to be TkText", parent.inspect)
+#    end
+#    @parent = @t = parent
+#    @path = @id = $tk_text_tag
+#    $tk_text_tag = $tk_text_tag.succ
+#    #tk_call @t.path, "tag", "configure", @id, *hash_kv(keys)
+#    configure(keys) if keys
+#    @t._addtag id, self
+#  end
+  def initialize(parent, *args)
     if not parent.kind_of?(TkText)
       fail format("%s need to be TkText", parent.inspect)
     end
@@ -437,9 +448,19 @@
     @path = @id = $tk_text_tag
     $tk_text_tag = $tk_text_tag.succ
     #tk_call @t.path, "tag", "configure", @id, *hash_kv(keys)
-    configure(keys) if keys
+    if args != [] then
+      keys = args.pop
+      if keys.kind_of? Hash then
+	add(*args) if args != []
+	configure(keys)
+      else
+	args.push keys
+	add(*args)
+      end
+    end
     @t._addtag id, self
   end
+
   def id
     return @id
   end
@@ -461,7 +482,7 @@
   end
 
   def ranges
-    l = tk_split_list(tk_call(@t.path, 'tag', 'ranges', @id))
+    l = tk_split_simplelist(tk_call(@t.path, 'tag', 'ranges', @id))
     r = []
     while key=l.shift
       r.push [key, l.shift]