diff options
Diffstat (limited to 'kiosk-plugin.tcl')
-rw-r--r-- | kiosk-plugin.tcl | 9 |
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" + |