山本です。

ext/tk/sample で動かないものがあったので報告します。

- ruby 1.9.0 (2005-03-28) [i386-bccwin32]
- ActiveTcl8.4.9.0.121397-win32-ix86.exe

////////////////////////
// tkextlib/iwidgets/sample/hierarchy.rb

ファイル名が化けている?ActiveTcl付属の同等のデモは動いた。

image "テチテjテナチ[" doesn't exist
image "テチテjテナチ[" doesn't exist
    while executing
"label $wid -image $image -background $bg "
    (object "::.w00000" method "::iwidgets::Hierarchy::_drawLevel" body line 87)
    invoked from within
"_drawLevel "" """
    (object "::.w00000" method "::iwidgets::Hierarchy::draw" body line 17)
    invoked from within
"::.w00000 draw -now"
    (in namespace inscope "::iwidgets::Hierarchy" script line 1)
    invoked from within
"namespace inscope ::iwidgets::Hierarchy {::.w00000 draw -now}"
    ("after" script)

////////////////////////
// tkextlib/treectrl/demo.rb

tcl/tk で "console show" を実行すると、ちゃんとコンソールが表示されるのに
Tk.tk_call("console", "show") はエラーになる。

e:/ruby-cvs/bcc32/.ext/tk.rb:1547:in `_invoke': invalid command name `console' (
NameError)
        from e:/ruby-cvs/bcc32/.ext/tk.rb:1547:in `_ip_invoke_core'
        from e:/ruby-cvs/bcc32/.ext/tk.rb:1583:in `_tk_call_core'
        from e:/ruby-cvs/bcc32/.ext/tk.rb:1611:in `tk_call_without_enc'
        from e:/ruby-cvs/bcc32/.ext/tk/console.rb:26:in `eval'
        from demo.rb:114:in `make_menubar'
        from demo.rb:43:in `initialize'
        from demo.rb:1093:in `new'
        from demo.rb:1093

////////////////////////
// tkextlib/tkHTML/ss.rb

中央の HTML ウィジェットでダブルクリックすると、下のエラーになる。

ThreadError: return can't jump across threads
---< backtrace of Ruby side >-----
ss.rb:326
ss.rb:325:in `call'
e:/ruby-cvs/bcc32/.ext/tk/event.rb:161:in `eval_cmd'
e:/ruby-cvs/bcc32/.ext/tk/event.rb:161:in `install_bind_for_event_class'
e:/ruby-cvs/bcc32/.ext/tk/event.rb:158:in `call'
e:/ruby-cvs/bcc32/.ext/tk.rb:1104:in `eval_cmd'
e:/ruby-cvs/bcc32/.ext/tk.rb:1104:in `cb_eval'
e:/ruby-cvs/bcc32/.ext/tk.rb:1055:in `call'
e:/ruby-cvs/bcc32/.ext/tk.rb:1198:in `callback'
e:/ruby-cvs/bcc32/.ext/tk.rb:1197:in `catch'
e:/ruby-cvs/bcc32/.ext/tk.rb:1197:in `callback'
e:/ruby-cvs/bcc32/.ext/tk.rb:1228:in `mainloop'
e:/ruby-cvs/bcc32/.ext/tk.rb:1418:in `mainloop'
ss.rb:406
---< backtrace of Tk side >-------
    invoked from within
"rb_out c00001 .w00002.x Down"
    (command bound to event)