If bind is specified for key without any modifier, then any combination
of modifiers may be present in the event. So bind $e $ev "$escript;
break" breaks some useful bindings from Entry class (for example
Ctrl+k).
---
gitk | 10 +++++-----
1 files changed, 5 insertions(+), 5 deletions(-)
Show changes to gitk +5 −5
diff --git a/gitk b/gitk
index 45e3380..0c6f3af 100755
--- a/gitk
+++ b/gitk
@@ -2365,6 +2365,10 @@ proc makewindow {} {
}
}
+ foreach e $entries {
+ bindtags $e [linsert [bindtags $e] 2 entrybind]
+ }
+
bind .pwbottom <Configure> {resizecdetpanes %W %w}
pack .ctop -fill both -expand 1
bindall <1> {selcanvline %W %x %y}
@@ -2563,12 +2567,8 @@ proc scrollcanv {cscroll f0 f1} {
proc bindkey {ev script} {
global entries
bind . $ev $script
- set escript [bind Entry $ev]
- if {$escript == {}} {
- set escript [bind Entry <Key>]
- }
foreach e $entries {
- bind $e $ev "$escript; break"
+ bind entrybind $ev "break"
}
}
--
1.7.3.3
--
Kacper Kornet