patches-on-pdwindow-plugin.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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"
}