# 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 <> {::patches_on_pdwindow::open_dropped_files %D} proc ::patches_on_pdwindow::open_dropped_files {files} { foreach file $files { open_file $file } return "link" }