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, 5 insertions, 4 deletions
diff --git a/kiosk-plugin.tcl b/kiosk-plugin.tcl
index cbedf59..9edb72b 100644
--- a/kiosk-plugin.tcl
+++ b/kiosk-plugin.tcl
@@ -96,7 +96,7 @@ proc ::kiosk::makekiosk {mywin} {
# remove all special key/mouse bindings from the window
if { $::kiosk::config(Bindings) } { } {
-puts "prevent bindigns"
+puts "prevent bindings"
set mycnv [tkcanvas_name $mywin ]
bindtags $mywin ""
bindtags $mycnv "$mycnv"
@@ -140,8 +140,9 @@ foreach kioskwin [array names ::loaded] {
# do the KIOSKification for newly created windows as well
if { $::kiosk::config(KioskNewWindow) } {
## not the most elegant way: KIOSKifying each window as it get's focus
- bind PatchWindow <FocusIn> {
- ::kiosk::makekiosk %W;
- }
+ bind PatchWindow <FocusIn> "+::kiosk::makekiosk %W"
}
+
+pdtk_post "loaded: kiosk-plugin 0.1\n"
+