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 " |
|
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 " |
|
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 "\t |
|
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\t |
|
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