diff options
Diffstat (limited to 'tripleclickobj-plugin.tcl')
| -rw-r--r-- | tripleclickobj-plugin.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tripleclickobj-plugin.tcl b/tripleclickobj-plugin.tcl new file mode 100644 index 0000000..715cd56 --- /dev/null +++ b/tripleclickobj-plugin.tcl @@ -0,0 +1,9 @@ +# This is a sketch to demonstrate a Tcl "plugin" for Pd: it binds to +# triple-clicks to trigger the creation of a new object. +proc process_tripleclick {window} { + set mytoplevel [winfo toplevel $window] + if {[winfo class $mytoplevel] == "PatchWindow" && $::editmode($mytoplevel)} { + ::pd_connect::pdsend "$mytoplevel obj" + } +} +bind all <Triple-ButtonRelease-1> {process_tripleclick %W} |