- 169 名前：デフォルトの名無しさん mailto:sage [2008/08/15(金) 15:27:37 ]
- require 'tk'
l = TkLabel.new(:text=>'0').pack
b = TkButton.new(:command=>proc{
TkAfter.new( 100, 1, proc{
l.text=l.text.to_i+1
Tk.event_generate(b,'Button-1')
Tk.event_generate(b,'ButtonRelease-1')}
).start
}).pack
Tk.mainloop
一定間隔でラベルの数字が増え続けるようにしたかったのですが、
実際やってみると、途中で不規則に止まってしまいます。
原因と解決策（できればイベント強制発生のループの形は残したままで）を
ご教示お願いします。
