Fossil SCM
Fix line numbers off-by-one in --tk display.
Commit
b3e1fd9ff44e3743975219e09ae14d0d0712eefcea33ecd6cfcb2d2252b305de
Parent
10f736f04f60e22…
1 file changed
+2
-2
+2
-2
| --- src/diff.tcl | ||
| +++ src/diff.tcl | ||
| @@ -81,14 +81,14 @@ | ||
| 81 | 81 | incr nDiffs |
| 82 | 82 | foreach wx [list [string length $n1] [string length $n2]] { |
| 83 | 83 | if {$wx>$widths(ln)} {set widths(ln) $wx} |
| 84 | 84 | } |
| 85 | 85 | .lnA insert end \n fn \n - |
| 86 | - .txtA insert end [lindex $line 1]\n fn | |
| 86 | + .txtA insert end [lindex $line 1]\n fn \n - | |
| 87 | 87 | .mkr insert end \n fn \n - |
| 88 | 88 | .lnB insert end \n fn \n - |
| 89 | - .txtB insert end [lindex $line 2]\n fn | |
| 89 | + .txtB insert end [lindex $line 2]\n fn \n - | |
| 90 | 90 | .wfiles.lb insert end [lindex $line 2] |
| 91 | 91 | set n1 0 |
| 92 | 92 | set n2 0 |
| 93 | 93 | } |
| 94 | 94 | SKIP { |
| 95 | 95 |
| --- src/diff.tcl | |
| +++ src/diff.tcl | |
| @@ -81,14 +81,14 @@ | |
| 81 | incr nDiffs |
| 82 | foreach wx [list [string length $n1] [string length $n2]] { |
| 83 | if {$wx>$widths(ln)} {set widths(ln) $wx} |
| 84 | } |
| 85 | .lnA insert end \n fn \n - |
| 86 | .txtA insert end [lindex $line 1]\n fn |
| 87 | .mkr insert end \n fn \n - |
| 88 | .lnB insert end \n fn \n - |
| 89 | .txtB insert end [lindex $line 2]\n fn |
| 90 | .wfiles.lb insert end [lindex $line 2] |
| 91 | set n1 0 |
| 92 | set n2 0 |
| 93 | } |
| 94 | SKIP { |
| 95 |
| --- src/diff.tcl | |
| +++ src/diff.tcl | |
| @@ -81,14 +81,14 @@ | |
| 81 | incr nDiffs |
| 82 | foreach wx [list [string length $n1] [string length $n2]] { |
| 83 | if {$wx>$widths(ln)} {set widths(ln) $wx} |
| 84 | } |
| 85 | .lnA insert end \n fn \n - |
| 86 | .txtA insert end [lindex $line 1]\n fn \n - |
| 87 | .mkr insert end \n fn \n - |
| 88 | .lnB insert end \n fn \n - |
| 89 | .txtB insert end [lindex $line 2]\n fn \n - |
| 90 | .wfiles.lb insert end [lindex $line 2] |
| 91 | set n1 0 |
| 92 | set n2 0 |
| 93 | } |
| 94 | SKIP { |
| 95 |