comparison contrib/hgk @ 24529:14873da80bc1

hgk: show secret changesets differently (shape and label)

24528:b538ae24aa97

		    set branch [join [lrange $line 1 end]]
        } elseif {$tag == "bookmark"} {
		    set bookmark [join [lrange $line 1 end]]
        } elseif {$tag == "obsolete"} {
		    set obsolete($id) ""
        }
	    }
	} else {
	    if {$comment == {}} {
		set headline [string trim $line]

    if {$comdate != {}} {
	set cdate($id) $comdate
	set comdate [clock format $comdate]
    }
    set commitinfo($id) [list $headline $auname $audate \
			     $comname $comdate $comment $rev $branch $bookmark]

    if {[info exists firstparents]} {
        set i [lsearch $firstparents $id]
        if {$i != -1} {
            # remove the parent from firstparents, possible building

    incr lineno
    set id [lindex $displist $level]
    set lastuse($id) $lineno
    set lineid($lineno) $id
    set idline($id) $lineno
    set ofill [expr {[info exists commitlisted($id)]? "blue": "white"}]
    if {![info exists commitinfo($id)]} {
	readcommit $id
	if {![info exists commitinfo($id)]} {
	    set commitinfo($id) {"No commit information available"}
	    set nparents($id) 0
	}
    }
    if {[info exists obsolete($id)]} {
	set ofill darkgrey
    }

	    set mainline($id) [trimdiagstart $mainline($id)]
	}
    }
    drawlines $id 0
    set orad [expr {$linespc / 3}]
    set t [$canv create oval [expr $x - $orad] [expr $y1 - $orad] \
	       [expr $x + $orad - 1] [expr $y1 + $orad - 1] \
	       -fill $ofill -outline black -width 1]
    $canv raise $t
    $canv bind $t <1> {selcanvline {} %x %y}
    set xt [xcoord [llength $displist] $level $lineno]

    if {[info exists children($id)]} {
	foreach c $children($id) {
	    append comment "Child:  [commit_descriptor $c]\n"
	}
    }
    append comment "\n"
    append comment [lindex $info 5]

    # make anything that looks like a SHA1 ID be a clickable link
    appendwithlinks $comment

24529:14873da80bc1

		    set branch [join [lrange $line 1 end]]
        } elseif {$tag == "bookmark"} {
		    set bookmark [join [lrange $line 1 end]]
        } elseif {$tag == "obsolete"} {
		    set obsolete($id) ""
        } elseif {$tag == "phase"} {
		    set phase [lindex $line 1 end]
        }
	    }
	} else {
	    if {$comment == {}} {
		set headline [string trim $line]

    if {$comdate != {}} {
	set cdate($id) $comdate
	set comdate [clock format $comdate]
    }
    set commitinfo($id) [list $headline $auname $audate \
			     $comname $comdate $comment $rev $branch $bookmark $phase]

    if {[info exists firstparents]} {
        set i [lsearch $firstparents $id]
        if {$i != -1} {
            # remove the parent from firstparents, possible building

    incr lineno
    set id [lindex $displist $level]
    set lastuse($id) $lineno
    set lineid($lineno) $id
    set idline($id) $lineno
    set shape oval
    set ofill [expr {[info exists commitlisted($id)]? "blue": "white"}]
    if {![info exists commitinfo($id)]} {
	readcommit $id
	if {![info exists commitinfo($id)]} {
	    set commitinfo($id) {"No commit information available"}
	    set nparents($id) 0
	}
    } else {
	if {[lindex $commitinfo($id) 9] eq "secret"} {
	    set shape rect
	}
    }
    if {[info exists obsolete($id)]} {
	set ofill darkgrey
    }

	    set mainline($id) [trimdiagstart $mainline($id)]
	}
    }
    drawlines $id 0
    set orad [expr {$linespc / 3}]
    set t [$canv create $shape [expr $x - $orad] [expr $y1 - $orad] \
	       [expr $x + $orad - 1] [expr $y1 + $orad - 1] \
	       -fill $ofill -outline black -width 1]
    $canv raise $t
    $canv bind $t <1> {selcanvline {} %x %y}
    set xt [xcoord [llength $displist] $level $lineno]

    if {[info exists children($id)]} {
	foreach c $children($id) {
	    append comment "Child:  [commit_descriptor $c]\n"
	}
    }

    if {[lindex $info 9] eq "secret"} {
	# for now, display phase for secret changesets only
	append comment "Phase: [lindex $info 9]\n"
    }

    append comment "\n"
    append comment [lindex $info 5]

    # make anything that looks like a SHA1 ID be a clickable link
    appendwithlinks $comment