Mercurial > hg
comparison contrib/hgk @ 18802:814498f80d7d
hgk: reformat changsets fields
Rename Author to User.
Rename Revision to Changeset.
Put Date on its own line.
author | Andrew Shadura <bugzilla@tut.by> |
---|---|
date | Sun, 10 Mar 2013 16:07:57 +0100 |
parents | c84cc0f3364a |
children | 82289176717d |
comparison
equal
deleted
inserted
replaced
18801:c84cc0f3364a | 18802:814498f80d7d |
---|---|
2469 $ctext delete 0.0 end | 2469 $ctext delete 0.0 end |
2470 set linknum 0 | 2470 set linknum 0 |
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) { |
2482 $ctext insert end " $bookmark" | 2483 $ctext insert end " $bookmark" |
2483 } | 2484 } |
3598 $ctext insert end "Parent:\t" | 3599 $ctext insert end "Parent:\t" |
3599 $ctext insert end $id [list link link0] | 3600 $ctext insert end $id [list link link0] |
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:" |
3607 set i 0 | 3608 set i 0 |
3608 foreach child $children($id) { | 3609 foreach child $children($id) { |
3610 set info $commitinfo($child) | 3611 set info $commitinfo($child) |
3611 $ctext insert end "\n\t" | 3612 $ctext insert end "\n\t" |
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 } |
3619 $ctext conf -state disabled | 3620 $ctext conf -state disabled |
3620 | 3621 |