author | Thomas Arendsen Hein <thomas@intevation.de> |
Sun, 01 Jul 2007 19:15:25 +0200 | |
changeset 4750 | 4a84f7421692 |
parent 4749 | e1d1b22bab57 |
child 4751 | a72dd3bfce41 |
child 4775 | 438603c1eb6f |
contrib/hgk | file | annotate | diff | comparison | revisions |
--- a/contrib/hgk +++ b/contrib/hgk @@ -2819,7 +2819,9 @@ proc gettreediffline {gdtf ids} { } return } - set file [lindex $line 5] + set tab1 [expr [string first "\t" $line] + 1] + set tab2 [expr [string first "\t" $line $tab1] - 1] + set file [string range $line $tab1 $tab2] lappend treediff $file }