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