[ruby-list:44137] Re: ruby-tk with tcltk8.5b1

天野です。

エラー出ずに動作するのを確認しました。
あとは、また後ほど。

On 2007/10/21, at 23:44, Hidetoshi NAGAI wrote:

> 永井＠知能．九工大です．
>
> テストしていただき，ありがとうございます．
>
> From: Ryutaro Amano <[e-mail]>
> Subject: [ruby-list:44135] Re: ruby-tk with tcltk8.5b1
> Date: Sun, 21 Oct 2007 22:49:51 +0900
> Message-ID: <[e-mail]>
>> パッチを当てましたが、エラーになります。
>>
>> $ ruby -rtk -e ""
>> dyld: NSLinkModule() error
>> dyld: Symbol not found: _TkFindMenuReferences
>
> ごめんなさい．こちらの関数も同様に対策が必要でしたね．
> 前回のパッチに加えて，以下のパッチを適用してみるとどうしょうか．
>
> --- tcltklib.c.old	2007-10-21 23:12:28.000000000 +0900
> +++ tcltklib.c	2007-10-21 23:36:34.000000000 +0900
> @@ -7831,7 +7831,11 @@
>      char *dummy3;
>  };
>
> +#if 0
>  EXTERN struct dummy_TkMenuRef *TkFindMenuReferences(Tcl_Interp*,  
> char*);
> +#else
> +#define MENU_HASH_KEY "tkMenus"  /* based on Tk8.0 - Tk8.5b1 */
> +#endif
>
>  #endif
>
> @@ -7842,12 +7846,27 @@
>  {
>  #if TCL_MAJOR_VERSION >= 8
>      struct tcltkip *ptr = get_ip(interp);
> -    struct dummy_TkMenuRef *menuRefPtr;
> +    struct dummy_TkMenuRef *menuRefPtr = NULL;
>      XEvent event;
> +    Tcl_HashTable *menuTablePtr;
> +    Tcl_HashEntry *hashEntryPtr;
>
>      StringValue(menu_path);
>
> +#if 0
>      menuRefPtr = TkFindMenuReferences(ptr->ip, RSTRING(menu_path)- 
> >ptr);
> +#else
> +    if ((menuTablePtr
> +	 = (Tcl_HashTable *) Tcl_GetAssocData(ptr->ip, MENU_HASH_KEY, NULL))
> +	!= NULL) {
> +      if ((hashEntryPtr
> +	   = Tcl_FindHashEntry(menuTablePtr, RSTRING(menu_path)->ptr))
> +	  != NULL) {
> +        menuRefPtr = (struct dummy_TkMenuRef *) Tcl_GetHashValue 
> (hashEntryPtr);
> +      }
> +    }
> +#endif
> +
>      if (menuRefPtr == (struct dummy_TkMenuRef *) NULL) {
>          rb_raise(rb_eArgError, "not a menu widget, or invalid  
> widget path");
>      }
>
> -- 
>                                        永井 秀利  
> （九工大 知能情報）
>                                            [e-mail]
>

Ryutaro Amano
[e-mail]