[ruby-list:1748] TkListbox and TkScrollbar

なかなか進歩しない中村です。

TkListbox と TkScrollbar の使い方に関する質問です。
sample の tkfrom.rb から関係ありそうな所を取ってきて
こういうのを書いてみました。


#!/usr/local/bin/ruby

require "tk"

list = TkListbox.new {
  yscroll proc{|idx|
	scroll.set *idx
  }
  relief 'raised'
  pack('side'=>'left','fill'=>'both','expand'=>'yes')
}
scroll = TkScrollbar.new {
  command proc{|idx|
	list.yview *idx
  }
  pack('side'=>'right', 'fill'=>'y')
}
for f in d = Dir.open(".").sort
  list.insert 'end', f
end

Tk.mainloop

が、スクロールバーに触ると
プログラムが終了してしまいます。
本当はどのように記述したら良いのでしょうか？
よろしくお願いします。

# widget demo Ruby/Tk 版が欲しい…。

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