aboutsummaryrefslogtreecommitdiff
path: root/kiosk-plugin.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'kiosk-plugin.tcl')
-rw-r--r--kiosk-plugin.tcl9
1 files changed, 7 insertions, 2 deletions
diff --git a/kiosk-plugin.tcl b/kiosk-plugin.tcl
index 48886bf..d173d17 100644
--- a/kiosk-plugin.tcl
+++ b/kiosk-plugin.tcl
@@ -33,6 +33,7 @@ set ::kiosk::config(GeometryMain) ""
proc ::kiosk::readconfig {{fname kiosk.cfg}} {
+ set orgname $fname
if {[file exists $fname]} {
set fp [open $fname r]
} else {
@@ -40,7 +41,7 @@ proc ::kiosk::readconfig {{fname kiosk.cfg}} {
if {[file exists $fname]} {
set fp [open $fname r]
} else {
- puts "kiosk.cfg not found"
+ puts "kiosk-configuration not found: $orgname"
return False
}
}
@@ -125,7 +126,11 @@ proc ::kiosk::makekiosk {mywin} {
######################################
## read the default configuration file "kiosk.cfg"
-::kiosk::readconfig
+if { [info exists ::env(PD_KIOSK_CONFIG) ] } {
+ ::kiosk::readconfig $::env(PD_KIOSK_CONFIG)
+} {
+ ::kiosk::readconfig
+}
###### do some global KIOSK-settings