]>
Commit | Line | Data |
---|---|---|
b2c254f3 KK |
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 | |
5 | ||
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 | |
9 | Ctrl+k). | |
10 | --- | |
11 | gitk | 10 +++++----- | |
12 | 1 files changed, 5 insertions(+), 5 deletions(-) | |
13 | ||
14 | diff --git gitk-git/gitk gitk-git/gitk | |
15 | index 45e3380..0c6f3af 100755 | |
16 | --- gitk-git/gitk | |
17 | +++ gitk-git/gitk | |
18 | @@ -2365,6 +2365,10 @@ proc makewindow {} { | |
19 | } | |
20 | } | |
21 | ||
22 | + foreach e $entries { | |
23 | + bindtags $e [linsert [bindtags $e] 2 entrybind] | |
24 | + } | |
25 | + | |
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} { | |
31 | global entries | |
32 | bind . $ev $script | |
33 | - set escript [bind Entry $ev] | |
34 | - if {$escript == {}} { | |
35 | - set escript [bind Entry <Key>] | |
36 | - } | |
37 | foreach e $entries { | |
38 | - bind $e $ev "$escript; break" | |
39 | + bind entrybind $ev "break" | |
40 | } | |
41 | } | |
42 | ||
43 | -- | |
44 | 1.7.3.3 | |
45 |