diff options
| author | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2012-11-06 09:02:45 +0000 |
|---|---|---|
| committer | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2012-11-06 09:02:45 +0000 |
| commit | 57bb9e3ee81ca718ad25deaec9ee87adbe73553a (patch) | |
| tree | e41935cf265f6e80528a768e036b05b4c8b9a955 | |
| parent | dcca5a5fcb8f56c74dce164933cc47ed3228ab10 (diff) | |
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
| -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" + |