diff options
author | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2013-04-18 18:51:18 +0000 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2013-04-18 18:51:18 +0000 |
commit | 85e095676dafc2c99e55043cff191df3fdd9d2ac (patch) | |
tree | 44c4663ccb02372b334065360e48f4bf5438f243 | |
parent | 14490bea9fc882aaf8c0df5f8447f461ca4870f0 (diff) |
only disable QUIT-Keys (not CLOSE)
svn path=/trunk/guiplugins/kiosk-plugin/; revision=17095
-rw-r--r-- | kiosk-plugin.tcl | 8 |
1 files 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> {} |