first working sketches of new Drag-n-Drop behaviors with tkdndHEADsvn2git-rootsvn2git-headscripts/guiplugins/dropsuite-plugin

svn path=/trunk/scripts/guiplugins/dropsuite-plugin/; revision=16580

1 files changed, 16 insertions, 0 deletions

diff --git a/patches-on-pdwindow-plugin.tcl b/patches-on-pdwindow-plugin.tcl
new file mode 100644
index 0000000..c363a30
--- /dev/null
+++ b/patches-on-pdwindow-plugin.tcl
@@ -0,0 +1,16 @@
+# open all files dropped on the Pd Window
+
+package require tkdnd
+
+namespace eval ::patches_on_pdwindow {
+}
+
+::tkdnd::drop_target register .pdwindow DND_Files
+bind .pdwindow <<Drop:DND_Files>> {::patches_on_pdwindow::open_dropped_files %D}
+
+proc ::patches_on_pdwindow::open_dropped_files {files} {
+    foreach file $files {
+        open_file $file
+    }
+    return "link"
+}