diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2010-12-18 19:14:31 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2010-12-18 19:14:31 +0000 |
commit | d48c93fa0f0108277d7575e2da90a0a2fbbae8ee (patch) | |
tree | 460237e8f3d88617264c69badcb50839824b35b4 | |
parent | a85f13782212abb95b6784132dd381c3ab757794 (diff) |
updated to use new ::current_plugin_loadpath variable to load object_tags.tcllistHEADsvn2git-headscripts/guiplugins/object_db-plugin
svn path=/trunk/scripts/guiplugins/object_db-plugin/; revision=14666
-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 { |