diff options
author | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2011-03-01 17:20:06 +0000 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2011-03-01 17:20:06 +0000 |
commit | 6f676af459e8774b272f41e1dea371938a3b2c36 (patch) | |
tree | b1dfb7a7474d6a4d41c11d5a0cc3bcb316f2f4e9 /kiosk-plugin.tcl | |
parent | 14952edf20d29bf4d5340e2e06cb71268573ed3c (diff) |
check for proper input from the kiosk.cfg
svn path=/trunk/scripts/guiplugins/kiosk-plugin/; revision=14989
Diffstat (limited to 'kiosk-plugin.tcl')
-rw-r--r-- | kiosk-plugin.tcl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/kiosk-plugin.tcl b/kiosk-plugin.tcl index c8ace1c..cbedf59 100644 --- a/kiosk-plugin.tcl +++ b/kiosk-plugin.tcl @@ -42,8 +42,12 @@ proc ::kiosk::readconfig {{fname kiosk.cfg}} { } } while {![eof $fp]} { - set data [gets $fp] - set ::kiosk::config([lindex $data 0]) [lindex $data 1] + set data [gets $fp] + if { [string is list $data ] } { + if { [llength $data ] > 1 } { + set ::kiosk::config([lindex $data 0]) [lindex $data 1] + } + } } @@ -92,6 +96,7 @@ proc ::kiosk::makekiosk {mywin} { # remove all special key/mouse bindings from the window if { $::kiosk::config(Bindings) } { } { +puts "prevent bindigns" set mycnv [tkcanvas_name $mywin ] bindtags $mywin "" bindtags $mycnv "$mycnv" @@ -100,8 +105,6 @@ proc ::kiosk::makekiosk {mywin} { bind $mycnv <KeyRelease> {::pd_bindings::sendkey %W 0 %K %A 0} bind $mycnv <Shift-KeyPress> {::pd_bindings::sendkey %W 1 %K %A 1} bind $mycnv <Shift-KeyRelease> {::pd_bindings::sendkey %W 0 %K %A 1} - -# TODO suppress Alt-F4 } } |