新井です。

In message "[ruby-list:28683] Re: ruby/tk TkEntry#selection_present bug?"
  on 11 Mar 2001 16:49:37 +0900,
  Koji Arai <JCA02266 / nifty.ne.jp> wrote:
> 新井です。

> パッチにしてみました。ご査収の程よろしくお願いします。
> # 中村さんも洩れがあればお知らせください。
> 
> # あっ TK_LIBRARY 忘れてる(^^;

追加です。

[ruby-list:28684] TkCanvas#lower, raise bug
> 第二引数を tagid() に入れてから渡さなければいけないようです

[ruby-list:28562] Re: ruby/tk TkEntry#selection_present bug?
> あと、Perl/Tk だと特殊変数として $Tk::library などが
> 定義されているようなのですが、Ruby/Tk では定義されていませんね

[ruby-list:28612] TkScrollbar#identify bug
> あと、TkScrollbar#activate が実装されていないようです。


--- tkcanvas.rb.bak Mon Mar 12 06:12:45 2001 +++ tkcanvas.rb Mon Mar 12 06:12:24 2001 @@ -375,7 +375,7 @@ end def lower(tag, below=None) - tk_send 'lower', tagid(tag), below + tk_send 'lower', tagid(tag), tagid(below) end def move(tag, x, y) @@ -387,7 +387,7 @@ end def raise(tag, above=None) - tk_send 'raise', tagid(tag), above + tk_send 'raise', tagid(tag), tagid(above) end def scale(tag, x, y, xs, ys) --- tk.rb.bak Sun Mar 11 16:23:42 2001 +++ tk.rb Mon Mar 12 06:09:45 2001 @@ -658,6 +658,7 @@ TCL_VERSION = INTERP._invoke("info", "tclversion") TK_VERSION = INTERP._invoke("set", "tk_version") JAPANIZED_TK = (INTERP._invoke("info", "commands", "kanji") != "") + LIBRARY = INTERP._invoke("info", "library") def root TkRoot.new @@ -2768,6 +2769,10 @@ def set(first, last) tk_send "set", first, last + end + + def activate(element=None) + tk_send('activate', element) end end