[ruby-list:28690] Re: ruby/tk TkEntry#selection_present bug?

新井です。

In message "[ruby-list:28683] Re: ruby/tk TkEntry#selection_present bug?"
  on 11 Mar 2001 16:49:37 +0900,
  Koji Arai <[e-mail]> 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