diff options
Diffstat (limited to 'patches-on-pdwindow-plugin.tcl')
-rw-r--r-- | patches-on-pdwindow-plugin.tcl | 16 |
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" +} |