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

永井＠知能．九工大です．

テストしていただき，ありがとうございます．

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]