$tread = Thread.start do # 読み込み用スレッド 100.times do line = Kconv.toeuc(ARGF.gets) if $OPT_c esetatef.each{ |org,conv| line.tr!(org,conv) } end $rdat.add(line) end
$tdisp.run # 表示開始
# 残り物を読み込む while line = ARGF.gets line = Kconv.toeuc(line) esetatef.each{ |org,conv| line.tr!(org,conv) } $rdat.add(line) end $tautoscroll.run # 自動スクロール開始 end