diff options
author | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2011-03-01 09:58:24 +0000 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2011-03-01 09:58:24 +0000 |
commit | 00c838a42a27458e2b70f8d40658f49bcc2a3e43 (patch) | |
tree | 8479713de706ff4a5ca79c3b6b9e6f3d6d379b40 /kiosk-plugin.tcl | |
parent | aa13f6c9443a2449b53c4a9b3808aea247119a3b (diff) |
search cfg-file in currect_plugin_loadpath
svn path=/trunk/scripts/guiplugins/kiosk-plugin/; revision=14986
Diffstat (limited to 'kiosk-plugin.tcl')
-rw-r--r-- | kiosk-plugin.tcl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/kiosk-plugin.tcl b/kiosk-plugin.tcl index a47d7c6..ce3cd94 100644 --- a/kiosk-plugin.tcl +++ b/kiosk-plugin.tcl @@ -30,7 +30,13 @@ proc ::kiosk::readconfig {{fname kiosk.cfg}} { if {[file exists $fname]} { set fp [open $fname r] } else { - return False + set fname [file join $::current_plugin_loadpath $fname] + if {[file exists $fname]} { + set fp [open $fname r] + } else { + puts "kiosk.cfg not found" + return False + } } while {![eof $fp]} { set data [gets $fp] |