##// END OF EJS Templates
hgk: reformat changsets fields...
Andrew Shadura -
r18802:814498f8 default
parent child Browse files
Show More
@@ -2471,11 +2471,12 b' proc selectline {l isnew} {'
2471 $ctext mark set fmark.0 0.0
2471 $ctext mark set fmark.0 0.0
2472 $ctext mark gravity fmark.0 left
2472 $ctext mark gravity fmark.0 left
2473 set info $commitinfo($id)
2473 set info $commitinfo($id)
2474 $ctext insert end "Revision: [lindex $info 6]\n"
2474 $ctext insert end "Changeset: [lindex $info 6]\n"
2475 if {[llength [lindex $info 7]] > 0} {
2475 if {[llength [lindex $info 7]] > 0} {
2476 $ctext insert end "Branch: [lindex $info 7]\n"
2476 $ctext insert end "Branch: [lindex $info 7]\n"
2477 }
2477 }
2478 $ctext insert end "Author: [lindex $info 1] [lindex $info 2]\n"
2478 $ctext insert end "User: [lindex $info 1]\n"
2479 $ctext insert end "Date: [lindex $info 2]\n"
2479 if {[info exists idbookmarks($id)]} {
2480 if {[info exists idbookmarks($id)]} {
2480 $ctext insert end "Bookmarks:"
2481 $ctext insert end "Bookmarks:"
2481 foreach bookmark $idbookmarks($id) {
2482 foreach bookmark $idbookmarks($id) {
@@ -3600,7 +3601,7 b' proc lineclick {x y id isnew} {'
3600 $ctext tag bind link0 <1> [list selbyid $id]
3601 $ctext tag bind link0 <1> [list selbyid $id]
3601 set info $commitinfo($id)
3602 set info $commitinfo($id)
3602 $ctext insert end "\n\t[lindex $info 0]\n"
3603 $ctext insert end "\n\t[lindex $info 0]\n"
3603 $ctext insert end "\tAuthor:\t[lindex $info 1]\n"
3604 $ctext insert end "\tUser:\t[lindex $info 1]\n"
3604 $ctext insert end "\tDate:\t[lindex $info 2]\n"
3605 $ctext insert end "\tDate:\t[lindex $info 2]\n"
3605 if {[info exists children($id)]} {
3606 if {[info exists children($id)]} {
3606 $ctext insert end "\nChildren:"
3607 $ctext insert end "\nChildren:"
@@ -3612,7 +3613,7 b' proc lineclick {x y id isnew} {'
3612 $ctext insert end $child [list link link$i]
3613 $ctext insert end $child [list link link$i]
3613 $ctext tag bind link$i <1> [list selbyid $child]
3614 $ctext tag bind link$i <1> [list selbyid $child]
3614 $ctext insert end "\n\t[lindex $info 0]"
3615 $ctext insert end "\n\t[lindex $info 0]"
3615 $ctext insert end "\n\tAuthor:\t[lindex $info 1]"
3616 $ctext insert end "\n\tUser:\t[lindex $info 1]"
3616 $ctext insert end "\n\tDate:\t[lindex $info 2]\n"
3617 $ctext insert end "\n\tDate:\t[lindex $info 2]\n"
3617 }
3618 }
3618 }
3619 }
General Comments 0
You need to be logged in to leave comments. Login now