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

越水です。永井さん、対応ありがとうございました。

ところで、tktext.rbには、他にもrange関係のメソッドがあるのですが、それ
らもtk_split_simplelistを使うようにすればいいのでしょうか？ もしそれで
良ければ、下のpatchを用意しました。#14757のpatchを当てた後に当てるもの
です。

*** tktext.rb.orig	Fri Jun  4 01:38:31 1999
--- tktext.rb	Fri Jun  4 01:41:36 1999
***************
*** 320,326 ****
    end
  
    def tag_ranges(tag)
!     l = tk_split_list(tk_send('tag', 'ranges', tag))
      r = []
      while key=l.shift
        r.push [key, l.shift]
--- 320,326 ----
    end
  
    def tag_ranges(tag)
!     l = tk_split_simplelist(tk_send('tag', 'ranges', tag))
      r = []
      while key=l.shift
        r.push [key, l.shift]
***************
*** 329,339 ****
    end
  
    def tag_nextrange(tag, first, last=None)
!     tk_split_list(tk_send('tag', 'nextrange', tag, first, last))
    end
  
    def tag_prevrange(tag, first, last=None)
!     tk_split_list(tk_send('tag', 'prevrange', tag, first, last))
    end
  
    def search_with_length(pat,start,stop=None)
--- 329,339 ----
    end
  
    def tag_nextrange(tag, first, last=None)
!     tk_split_simplelist(tk_send('tag', 'nextrange', tag, first, last))
    end
  
    def tag_prevrange(tag, first, last=None)
!     tk_split_simplelist(tk_send('tag', 'prevrange', tag, first, last))
    end
  
    def search_with_length(pat,start,stop=None)
***************
*** 491,501 ****
    end
  
    def nextrange(first, last=None)
!     tk_split_list(tk_call(@t.path, 'tag', 'nextrange', @id, first, last))
    end
  
    def prevrange(first, last=None)
!     tk_split_list(tk_call(@t.path, 'tag', 'prevrange', @id, first, last))
    end
  
    def [](key)
--- 491,501 ----
    end
  
    def nextrange(first, last=None)
!     tk_split_simplelist(tk_call(@t.path, 'tag', 'nextrange', @id, first, last))
    end
  
    def prevrange(first, last=None)
!     tk_split_simplelist(tk_call(@t.path, 'tag', 'prevrange', @id, first, last))
    end
  
    def [](key)