···7108710871097109# mark the bits of a headline or author that match a find string
71107110proc markmatches {canv l str tag matches font row} {
71117111- global selectedline
71117111+ global selectedline foundbgcolor
7112711271137113 set bbox [$canv bbox $tag]
71147114 set x0 [lindex $bbox 0]
···71227122 set xlen [font measure $font [string range $str 0 [expr {$end}]]]
71237123 set t [$canv create rect [expr {$x0+$xoff}] $y0 \
71247124 [expr {$x0+$xlen+2}] $y1 \
71257125- -outline {} -tags [list match$l matches] -fill yellow]
71257125+ -outline {} -tags [list match$l matches] -fill $foundbgcolor]
71267126 $canv lower $t
71277127 if {$row == $selectedline} {
71287128 $canv raise $t secsel