mirrors/git
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

git-gui: incremental goto line in blame view

Browse Source 
The view jumps now to the given line number after each key press.

Signed-off-by: Bert Wesarg <bert.wesarg@googlemail.com>
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
This commit is contained in:
Bert Wesarg
2011-10-13 15:48:15 +02:00
committed by Pat Thoyts
parent 81a92e5205
commit 843d6597fb
1 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/line.tcl
View File

@ -20,7 +20,7 @@ constructor new {i_w i_text args} {
-background lightgreen \ -background lightgreen \
-validate key \ -validate key \
-validatecommand [cb _validate %P] -validatecommand [cb _validate %P]
${NS}::button $w.bn -text [mc Go] -command [cb _incrgoto] ${NS}::button $w.bn -text [mc Go] -command [cb _goto]
pack $w.l -side left pack $w.l -side left
pack $w.bn -side right pack $w.bn -side right
@ -29,7 +29,8 @@ constructor new {i_w i_text args} {
eval grid conf $w -sticky we $args eval grid conf $w -sticky we $args
grid remove $w grid remove $w
bind $w.ent <Return> [cb _incrgoto] trace add variable linenum write [cb _goto_cb]
bind $w.ent <Return> [cb _goto]
bind $w.ent <Escape> [cb hide] bind $w.ent <Escape> [cb hide]
bind $w <Destroy> [list delete_this $this] bind $w <Destroy> [list delete_this $this]
@ -64,10 +65,16 @@ method _validate {P} {
string is integer $P string is integer $P
} }
method _incrgoto {} { method _goto_cb {name ix op} {
after idle [cb _goto 1]
}
method _goto {{nohide {0}}} {
if {$linenum ne {}} { if {$linenum ne {}} {
$ctext see $linenum.0 $ctext see $linenum.0
hide $this if {!$nohide} {
hide $this
}
} }
} }