From d48c93fa0f0108277d7575e2da90a0a2fbbae8ee Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Sat, 18 Dec 2010 19:14:31 +0000
Subject: updated to use new ::current_plugin_loadpath variable to load
 object_tags.tcllist

svn path=/trunk/scripts/guiplugins/object_db-plugin/; revision=14666
---
 object_db-plugin.tcl | 15 ++++++---------
 1 file 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 {
-- 
cgit v1.2.1