[ruby-dev:26284] ext/tk/sample/tkextlib/tile/demo.rb で TypeError

山本です。

ext/tk/sample/tkextlib/tile/demo.rb のスクロールバーを動かすデモ
Others -> Scrollbar resize behavior で下のようなエラーが出ます。
sbstub に num が Float で渡ってくるようにすればいいんでしょうけど、
やり方がわからないので、報告だけ。

あと、コンソールの初期化がされていないようです。

TypeError: can't convert Float into String
---< backtrace of Ruby side >-----
demo.rb:135:in `+'
demo.rb:135:in `sbstub'
demo.rb:585:in `scrollbarResizeDemo'
demo.rb:585:in `call'
E:/ruby-cvs/bcc32/.ext/tk.rb:1125:in `eval_cmd'
E:/ruby-cvs/bcc32/.ext/tk.rb:1125:in `cb_eval'
E:/ruby-cvs/bcc32/.ext/tk.rb:1076:in `call'
E:/ruby-cvs/bcc32/.ext/tk.rb:1219:in `callback'
E:/ruby-cvs/bcc32/.ext/tk.rb:1218:in `catch'
E:/ruby-cvs/bcc32/.ext/tk.rb:1218:in `callback'
E:/ruby-cvs/bcc32/.ext/tk.rb:1439:in `mainloop'
E:/ruby-cvs/bcc32/.ext/tk.rb:1439:in `mainloop'
demo.rb:742
---< backtrace of Tk side >-------
    invoked from within
"rb_out c00087 moveto 0.0119047619048"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 $cmd moveto $fraction"
    (procedure "Moveto" line 4)
    invoked from within
"Moveto $w [expr {$State(first) + [$w delta $xDelta $yDelta]}]"
    (procedure "tile::scrollbar::Drag" line 10)
    invoked from within
"tile::scrollbar::Drag .w00092.w00093.w00094 48 86 "
    (command bound to event)