Mercurial > hg-stable
changeset 4503:d6b9c3a03268
Merge with crew-stable
| author | Patrick Mezard <pmezard@gmail.com> |
|---|---|
| date | Mon, 04 Jun 2007 22:56:42 +0200 |
| parents | eb26f8f70364 (current diff) 1774c037fbd2 (diff) |
| children | c68e6486f295 |
| files | |
| diffstat | 1 files changed, 5 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/contrib/hgk Mon Jun 04 22:08:42 2007 +0200 +++ b/contrib/hgk Mon Jun 04 22:56:42 2007 +0200 @@ -264,9 +264,8 @@ regsub -all "\r\n" $tags "\n" tags set lines [split $tags "\n"] foreach f $lines { - set f [regexp -all -inline {\S+} $f] - set direct [lindex $f 0] - set full [lindex $f 1] + regexp {(\S+)$} $f full + regsub {\s+(\S+)$} $f "" direct set sha [split $full ':'] set tag [lindex $sha 1] lappend tagids($direct) $tag @@ -356,15 +355,15 @@ set canv .ctop.top.clist.canv canvas $canv -height $geometry(canvh) -width $geometry(canv1) \ -bg white -bd 0 \ - -yscrollincr $linespc -yscrollcommand "$cscroll set" + -yscrollincr $linespc -yscrollcommand "$cscroll set" -selectbackground grey .ctop.top.clist add $canv set canv2 .ctop.top.clist.canv2 canvas $canv2 -height $geometry(canvh) -width $geometry(canv2) \ - -bg white -bd 0 -yscrollincr $linespc + -bg white -bd 0 -yscrollincr $linespc -selectbackground grey .ctop.top.clist add $canv2 set canv3 .ctop.top.clist.canv3 canvas $canv3 -height $geometry(canvh) -width $geometry(canv3) \ - -bg white -bd 0 -yscrollincr $linespc + -bg white -bd 0 -yscrollincr $linespc -selectbackground grey .ctop.top.clist add $canv3 bind .ctop.top.clist <Configure> {resizeclistpanes %W %w}