[ruby-list:1835] command option of Tk

中村です。

Tcl/Tk では以下のような分かったような
分からないようなコードが書けるのですが、
同様のことを ruby/Tk でやる方法は
あるのでしょうか？


#!/usr/local/X11R6/bin/wish4.2

foreach i {1 2} {
	button .b$i -text button$i -command "puts $i"
	pack .b$i
}

とりあえず、こういうのを書きましたが
どちらのボタンを押しても 2 しか出ません。

#!/usr/local/bin/ruby

require "tk"

for i in 1..2
  text = "button" + i
  TkButton.new {
	text text
	command proc {
	  print i, "\n"
	  STDOUT.flush
	}
	pack
  }
end

Tk.mainloop

よろしくお願いします。

         中村典嗣@京都大学大学院工学研究科電子通信工学専攻
         E-mail:        [e-mail]