From 57bb9e3ee81ca718ad25deaec9ee87adbe73553a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Tue, 6 Nov 2012 09:02:45 +0000
Subject: fixing bug in KioskNewWindow

that would overwrite bindings for window,
and thus effectively disabling edit-mode toggle

svn path=/trunk/guiplugins/kiosk-plugin/; revision=16526
---
 kiosk-plugin.tcl | 9 +++++----
 1 file 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"
+
-- 
cgit v1.2.1