improved compatibility with 0.43 and 0.44 branches

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 \;
 }

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,