Commit 0ef37a9c authored by Ivica Bukvic's avatar Ivica Bukvic
Browse files

improved compatibility with 0.43 and 0.44 branches

parent a7ac5546
......@@ -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 \;
}
......
......@@ -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,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment