[ruby-dev:26769] Re: some questions about tcltklib.c

山本です。

>修正を CVS HEAD と ruby_1_8 branch にコミットしてみましたが，
>いかがでしょうか．

treectrl のデモが動くようになりました。rb_jump_tag の件ですが、

        switch(status) {
        case TAG_RETURN:
            type = eTkCallbackReturn;
            goto error;
        case TAG_BREAK:
            type = eTkCallbackBreak;
            goto error;
        case TAG_NEXT:
            type = eTkCallbackContinue;
            goto error;
        error:
            str = rb_str_new2("LocalJumpError: ");
            rb_str_append(str, rb_obj_as_string(ruby_errinfo));
            exc = rb_exc_new3(type, str);
            break;

の error: の部分に来るようなサンプルを作って確かめようと思ったのですが、

  require 'tk'

  TkButton.new(:text=>'next', :command=>proc { next }).pack
  TkButton.new(:text=>'break', :command=>proc { break }).pack
  TkButton.new(:text=>'return', :command=>proc { return }).pack

  Tk.mainloop

のいずれも TAG_RAISE として返ってくるようで、うまくいきませんでした。

error: の部分に来るようなサンプルを提示していただけると助かります。