equal
deleted
inserted
replaced
2353 proc selectline {l isnew} { |
2353 proc selectline {l isnew} { |
2354 global canv canv2 canv3 ctext commitinfo selectedline |
2354 global canv canv2 canv3 ctext commitinfo selectedline |
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 |
2362 if {![info exists lineid($l)] || ![info exists linehtag($l)]} return |
2362 if {![info exists lineid($l)] || ![info exists linehtag($l)]} return |
2363 $canv delete secsel |
2363 $canv delete secsel |
2430 if {[llength [lindex $info 7]] > 0} { |
2430 if {[llength [lindex $info 7]] > 0} { |
2431 $ctext insert end "Branch: [lindex $info 7]\n" |
2431 $ctext insert end "Branch: [lindex $info 7]\n" |
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) { |
2438 $ctext insert end " $tag" |
2446 $ctext insert end " $tag" |
2439 } |
2447 } |