1 From 2ad6d3e9325a39333be0c4b9094e9d5e756dea65 Mon Sep 17 00:00:00 2001
2 From: Kacper <kornet@tuptus>
3 Date: Thu, 9 Dec 2010 18:57:06 +0000
4 Subject: [PATCH] Preserve Entry class key bindings for SHA id
6 If bind is specified for key without any modifier, then any combination
7 of modifiers may be present in the event. So bind $e $ev "$escript;
8 break" breaks some useful bindings from Entry class (for example
12 1 files changed, 5 insertions(+), 5 deletions(-)
14 diff --git gitk-git/gitk gitk-git/gitk
15 index 45e3380..0c6f3af 100755
18 @@ -2365,6 +2365,10 @@ proc makewindow {} {
22 + foreach e $entries {
23 + bindtags $e [linsert [bindtags $e] 2 entrybind]
26 bind .pwbottom <Configure> {resizecdetpanes %W %w}
27 pack .ctop -fill both -expand 1
28 bindall <1> {selcanvline %W %x %y}
29 @@ -2563,12 +2567,8 @@ proc scrollcanv {cscroll f0 f1} {
30 proc bindkey {ev script} {
33 - set escript [bind Entry $ev]
34 - if {$escript == {}} {
35 - set escript [bind Entry <Key>]
38 - bind $e $ev "$escript; break"
39 + bind entrybind $ev "break"