From a85f13782212abb95b6784132dd381c3ab757794 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Sun, 12 Dec 2010 21:34:34 +0000
Subject: search path for object_tags.tcllist

svn path=/trunk/scripts/guiplugins/object_db/; revision=14594
---
 object_db-plugin.tcl | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/object_db-plugin.tcl b/object_db-plugin.tcl
index 898a0f4..9aed204 100644
--- a/object_db-plugin.tcl
+++ b/object_db-plugin.tcl
@@ -38,11 +38,17 @@ array set object_tags {}
 # tag reverse mapping
 array set objects_with_tag {}
 
-# load object -> tags mapping from file
-set f [open [file join $::current_pathdir object_tags.tcllist]]
-set tmp_db [read $f]
-close $f
-unset f
+# 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        
+    }
+}
 
 foreach {library object tags} $tmp_db {
     # skip unwanted libraries
-- 
cgit v1.2.1