1
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-11-05 08:47:56 +01:00

gitk: Fix bug in assigning row numbers to arcs

We weren't setting vtokmod and varcmod in renumbervarc, so after a
call to renumbervarc we sometimes weren't reassigning row numbers to
all the arcs whose row numbers had changed.  This fixes it.

This also collapses layoutmore and showstuff into one procedure and
gets rid of the phase variable.

Signed-off-by: Paul Mackerras <paulus@samba.org>
This commit is contained in:
Paul Mackerras 2007-12-06 20:50:31 +11:00
parent 7fcc92bff4
commit 38dfe93916

38
gitk
View file

@ -463,6 +463,16 @@ proc renumbervarc {a v} {
}
set b [lindex $vupptr($v) $a]
if {$b != $ka} {
set tok [lindex $varctok($v) $ka]
if {[string compare $tok $vtokmod($v)] < 0} {
set vtokmod($v) $tok
set varcmod($v) $ka
}
set tok [lindex $varctok($v) $b]
if {[string compare $tok $vtokmod($v)] < 0} {
set vtokmod($v) $tok
set varcmod($v) $b
}
set c [lindex $vdownptr($v) $b]
if {$c == $a} {
lset vdownptr($v) $b [lindex $vleftptr($v) $a]
@ -1939,7 +1949,7 @@ proc about {} {
message $w.m -text {
Gitk - a commit viewer for git
Copyright © 2005-2006 Paul Mackerras
Copyright © 2005-2007 Paul Mackerras
Use and redistribute under the terms of the GNU General Public License} \
-justify center -aspect 400 -border 2 -bg white -relief groove
@ -3375,30 +3385,20 @@ proc visiblerows {} {
}
proc layoutmore {} {
global commitidx viewcomplete numcommits
global uparrowlen downarrowlen mingaplen curview
set show $commitidx($curview)
if {$show > $numcommits || $viewcomplete($curview)} {
showstuff $show $viewcomplete($curview)
}
}
proc showstuff {canshow last} {
global commitidx viewcomplete curview
global numcommits pending_select selectedline curview
global selectfirst
global lastscrollset commitinterest
global selectfirst lastscrollset commitinterest
set canshow $commitidx($curview)
if {$canshow <= $numcommits && !$viewcomplete($curview)} return
if {$numcommits == 0} {
global phase
set phase "incrdraw"
allcanvs delete all
}
set r0 $numcommits
set prev $numcommits
set numcommits $canshow
set t [clock clicks -milliseconds]
if {$prev < 100 || $last || $t - $lastscrollset > 500} {
if {$prev < 100 || $viewcomplete($curview) || $t - $lastscrollset > 500} {
set lastscrollset $t
setcanvscroll
}
@ -3426,12 +3426,12 @@ proc showstuff {canshow last} {
}
proc doshowlocalchanges {} {
global curview mainheadid phase
global curview mainheadid
if {[commitinview $mainheadid $curview]} {
dodiffindex
} elseif {$phase ne {}} {
lappend commitinterest($mainheadid) {}
} else {
lappend commitinterest($mainheadid) {dodiffindex}
}
}