# [PATCH] gitk: Preserve Entry class key bindings for SHA id

1 messages from 2011-01-27 to 2011-01-27. Participants: Kacper Kornet.
Thread: https://gitlist.dev/t/26350

## Kacper Kornet, 2011-01-27 16:06

Subject: [PATCH] gitk: Preserve Entry class key bindings for SHA id
Message-ID: <20110127160625.GC519@camk.edu.pl>
URL: https://gitlist.dev/e/20110127160625.GC519%40camk.edu.pl

```
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).

Signed-off-by: Kacper Kornet <kornet@camk.edu.pl>
---
 gitk |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/gitk b/gitk
index 9cbc09d..71eebb2 100755
--- a/gitk
+++ b/gitk
@@ -2389,6 +2389,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}
@@ -2588,12 +2592,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.5

-- 
  Kacper Kornet

```