From 85e095676dafc2c99e55043cff191df3fdd9d2ac Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Thu, 18 Apr 2013 18:51:18 +0000
Subject: only disable QUIT-Keys (not CLOSE)

svn path=/trunk/guiplugins/kiosk-plugin/; revision=17095
---
 kiosk-plugin.tcl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/kiosk-plugin.tcl b/kiosk-plugin.tcl
index 0f72cc3..a6ec6f3 100644
--- a/kiosk-plugin.tcl
+++ b/kiosk-plugin.tcl
@@ -97,10 +97,10 @@ proc ::kiosk::makekiosk {mywin} {
 
 # remove all special key/mouse bindings from the window
     if { $::kiosk::config(QuitBinding) } { } {
-        bind $mycnv <Control-Key-w> {}
-        bind $mycnv <Control-Shift-Key-W> {}
-        bind all <Control-Key-w> {}
-        bind all <Control-Shift-Key-W> {}
+#         bind $mycnv <Control-Key-w> {}
+#         bind $mycnv <Control-Shift-Key-W> {}
+#         bind all <Control-Key-w> {}
+#         bind all <Control-Shift-Key-W> {}
 
         bind $mycnv <Control-Key-q> {}
         bind $mycnv <Control-Shift-Key-Q> {}
-- 
cgit v1.2.1