From: Noritugu Nakamura <nnakamur@...>
Date: 1997-01-18T03:50:07+09:00
Subject: [ruby-list:1763] Re: ruby 1.0-970118 available


中村です。

In article <199701171733.CAA18760@castanet.caelum.co.jp> 
matz@caelum.co.jp (Yukihiro Matsumoto) writes:
> 正規表現とScrollbarの問題は解決したと思います．

#!/usr/local/bin/ruby

require "tk"

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

Tk.mainloop

で動作するようになりました。
# 意味は全然分かっていないけど…。
ありがとうございました。

         中村典嗣@京都大学大学院工学研究科電子通信工学専攻
         E-mail:        nnakamur@tamaru.kuee.kyoto-u.ac.jp