Show More
@@ -2355,7 +2355,7 b' proc selectline {l isnew} {' | |||
|
2355 | 2355 | global lineid linehtag linentag linedtag |
|
2356 | 2356 | global canvy0 linespc parents nparents children |
|
2357 | 2357 | global cflist currentid sha1entry |
|
2358 | global commentend idtags idline linknum | |
|
2358 | global commentend idtags idbookmarks idline linknum | |
|
2359 | 2359 | |
|
2360 | 2360 | $canv delete hover |
|
2361 | 2361 | normalline |
@@ -2432,6 +2432,14 b' proc selectline {l isnew} {' | |||
|
2432 | 2432 | } |
|
2433 | 2433 | $ctext insert end "Author: [lindex $info 1] [lindex $info 2]\n" |
|
2434 | 2434 | $ctext insert end "Committer: [lindex $info 3] [lindex $info 4]\n" |
|
2435 | if {[info exists idbookmarks($id)]} { | |
|
2436 | $ctext insert end "Bookmarks:" | |
|
2437 | foreach bookmark $idbookmarks($id) { | |
|
2438 | $ctext insert end " $bookmark" | |
|
2439 | } | |
|
2440 | $ctext insert end "\n" | |
|
2441 | } | |
|
2442 | ||
|
2435 | 2443 | if {[info exists idtags($id)]} { |
|
2436 | 2444 | $ctext insert end "Tags:" |
|
2437 | 2445 | foreach tag $idtags($id) { |
General Comments 0
You need to be logged in to leave comments.
Login now