From 66c7a05ffae88f4ccbc81418b7d22f3ba19bc389 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Sun, 25 Nov 2012 05:08:24 +0000
Subject: first working sketches of new Drag-n-Drop behaviors with tkdnd

svn path=/trunk/scripts/guiplugins/dropsuite-plugin/; revision=16580
---
 patches-on-pdwindow-plugin.tcl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 patches-on-pdwindow-plugin.tcl

(limited to 'patches-on-pdwindow-plugin.tcl')

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"
+}
-- 
cgit v1.2.1