We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents c2d89dd + 2f51d91 commit ef31b13Copy full SHA for ef31b13
1 file changed
gitk
@@ -6779,7 +6779,8 @@ proc drawtags {id x xt y1} {
6779
lappend wvals $wid
6780
set xt [expr {$xt + $wid + $extra}]
6781
}
6782
- set t [$canv create line $x $y1 [lindex $xvals end] $y1 \
+ set yl [expr {$y1 - $lthickness}]
6783
+ set t [$canv create line $x $yl [lindex $xvals end] $yl \
6784
-width $lthickness -fill $reflinecolor -tags tag.$id]
6785
$canv lower $t
6786
foreach tag $marks x $xvals wid $wvals {
0 commit comments