From 0ef37a9c19947b3e2e40be17e836895014b975d6 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Sat, 23 Feb 2013 00:02:28 -0500
Subject: [PATCH] improved compatibility with 0.43 and 0.44 branches
---
pd/src/pd.tk | 5 +++++
pd/src/t_tkcmd.c | 2 ++
2 files changed, 7 insertions(+)
diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index da6607009..8da278c59 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -3361,6 +3361,11 @@ proc pdtk_canvas_checkgeometry {topname} {
}
}
+# from newer pd branch
+proc pdtk_canvas_mouse {name x y b f} {
+ pd [canvastosym $name] mouse [$name canvasx $x] [$name canvasy $y] $b $f \;
+}
+
proc pdtk_canvas_sendclick {name x y b f} {
pd [canvastosym $name] mouse [$name canvasx $x] [$name canvasy $y] $b $f \;
}
diff --git a/pd/src/t_tkcmd.c b/pd/src/t_tkcmd.c
index c6b5ff747..c55ca7f90 100644
--- a/pd/src/t_tkcmd.c
+++ b/pd/src/t_tkcmd.c
@@ -603,6 +603,8 @@ void pdgui_startup(Tcl_Interp *interp)
/* add our own TK commands */
Tcl_CreateCommand(interp, "pd", (Tcl_CmdProc*)pdCmd, (ClientData)NULL,
+ (Tcl_CmdDeleteProc *)NULL);
+ Tcl_CreateCommand(interp, "pdsend", (Tcl_CmdProc*)pdCmd, (ClientData)NULL,
(Tcl_CmdDeleteProc *)NULL);
#ifdef MSW
Tcl_CreateCommand(interp, "pd_pollsocket",(Tcl_CmdProc*) pd_pollsocketCmd,
--
GitLab