contrib/hgk

22630:0290982e5ac7

		       -width 1 -outline black -fill yellow -tags tag.$id]
	    $canv bind $t <1> [list showtag $tag 1]
	    set rowtextx($idline($id)) [expr {$xr + $linespc}]
	} elseif {[incr nbookmarks -1] >= 0} {
            # draw a tag
            set col gray50
            if {[string compare $bookmarkcurrent $tag] == 0} {
                set col gray
            }
            set xl [expr $xl - $delta/2]
            $canv create polygon $x $yt $xr $yt $xr $yb $x $yb \
                -width 1 -outline black -fill $col -tags tag.$id
        } else {

22631:d246eb9cabbc

		       -width 1 -outline black -fill yellow -tags tag.$id]
	    $canv bind $t <1> [list showtag $tag 1]
	    set rowtextx($idline($id)) [expr {$xr + $linespc}]
	} elseif {[incr nbookmarks -1] >= 0} {
            # draw a tag
            set col "#7f7f7f"
            if {[string compare $bookmarkcurrent $tag] == 0} {
                set col "#bebebe"
            }
            set xl [expr $xl - $delta/2]
            $canv create polygon $x $yt $xr $yt $xr $yb $x $yb \
                -width 1 -outline black -fill $col -tags tag.$id
        } else {