comparison contrib/hgk @ 13462:8641cb094c81 stable

hgk: display bookmarks as gray labels in the commitline

13461:81af2040b586

    set olddisplist $displist
    set oldnlines [llength $displist]
}

proc drawtags {id x xt y1} {
    global idtags idheads idotherrefs commitinfo
    global linespc lthickness
    global canv mainfont idline rowtextx

    set marks {}
    set ntags 0
    set nheads 0
    if {[info exists idtags($id)]} {
	set marks $idtags($id)
	set ntags [llength $marks]
    }
    if {[info exists idheads($id)]} {
	set headmark [lindex $commitinfo($id) 7]
	if {$headmark ne "default"} {
	    lappend marks $headmark
	    set nheads 1
	}
    }
    if {[info exists idotherrefs($id)]} {
	set marks [concat $marks $idotherrefs($id)]
    }
    if {$marks eq {}} {
	return $xt
    }

	    set t [$canv create polygon $x [expr $yt + $delta] $xl $yt \
		       $xr $yt $xr $yb $xl $yb $x [expr $yb - $delta] \
		       -width 1 -outline black -fill yellow -tags tag.$id]
	    $canv bind $t <1> [list showtag $tag 1]
	    set rowtextx($idline($id)) [expr {$xr + $linespc}]
	} else {
	    # draw a head or other ref
	    if {[incr nheads -1] >= 0} {
		set col green
	    } else {
		set col "#ddddff"
	    }
	    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
	}
	set t [$canv create text $xl $y1 -anchor w -text $tag \
		   -font $mainfont -tags tag.$id]
	if {$ntags >= 0} {
	    $canv bind $t <1> [list showtag $tag 1]

13462:8641cb094c81

    set olddisplist $displist
    set oldnlines [llength $displist]
}

proc drawtags {id x xt y1} {
    global bookmarkcurrent idtags idbookmarks idheads idotherrefs commitinfo
    global linespc lthickness
    global canv mainfont idline rowtextx

    set marks {}
    set nbookmarks 0
    set ntags 0
    set nheads 0
    if {[info exists idtags($id)]} {
	set marks $idtags($id)
	set ntags [llength $marks]
    }
    if {[info exists idbookmarks($id)]} {
	set marks [concat $marks $idbookmarks($id)]
	set nbookmarks [llength $idbookmarks($id)]
    }
    if {[info exists idheads($id)]} {
	set headmark [lindex $commitinfo($id) 7]
	if {$headmark ne "default"} {
	    lappend marks $headmark
	    set nheads 1
	}
    }
    if {$marks eq {}} {
	return $xt
    }

	    set t [$canv create polygon $x [expr $yt + $delta] $xl $yt \
		       $xr $yt $xr $yb $xl $yb $x [expr $yb - $delta] \
		       -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 {
            # draw a head or other ref
            if {[incr nheads -1] >= 0} {
                set col green
            } else {
                set col "#ddddff"
            }
            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
	}
	set t [$canv create text $xl $y1 -anchor w -text $tag \
		   -font $mainfont -tags tag.$id]
	if {$ntags >= 0} {
	    $canv bind $t <1> [list showtag $tag 1]