diff options
| -rw-r--r-- | object_db-plugin.tcl | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/object_db-plugin.tcl b/object_db-plugin.tcl index 9aed204..9551833 100644 --- a/object_db-plugin.tcl +++ b/object_db-plugin.tcl @@ -39,15 +39,12 @@ array set object_tags {} array set objects_with_tag {} # load object -> tags mapping from file in Pd's path -foreach pathdir [concat $::sys_searchpath $::sys_staticpath] { - set dir [file normalize $pathdir] - set testfile [file join $dir object_tags.tcllist] - if { [file isfile $testfile]} { - set f [open $testfile] - set tmp_db [read $f] - close $f - unset f - } +set testfile [file join $::current_plugin_loadpath object_tags.tcllist] +if { [file isfile $testfile]} { + set f [open $testfile] + set tmp_db [read $f] + close $f + unset f } foreach {library object tags} $tmp_db { |