Fossil SCM
Minimum line-number width in --tk output is 3, to accommodate ellipses.
Commit
719498bd5f7c931c6d4ac592339b94d4d4bcd2cd43959a7abaf1c64b2acb4610
Parent
e5b1c70e2a6e043…
1 file changed
+1
-1
+1
-1
| --- src/diff.tcl | ||
| +++ src/diff.tcl | ||
| @@ -72,11 +72,11 @@ | ||
| 72 | 72 | set N [llength $difftxt] |
| 73 | 73 | set ii 0 |
| 74 | 74 | set nDiffs 0 |
| 75 | 75 | set n1 0 |
| 76 | 76 | set n2 0 |
| 77 | - array set widths {txt 0 ln 0 mkr 1} | |
| 77 | + array set widths {txt 3 ln 3 mkr 1} | |
| 78 | 78 | while {[set line [getLine $difftxt $N ii]] != -1} { |
| 79 | 79 | switch -- [lindex $line 0] { |
| 80 | 80 | FILE { |
| 81 | 81 | incr nDiffs |
| 82 | 82 | foreach wx [list [string length $n1] [string length $n2]] { |
| 83 | 83 |
| --- src/diff.tcl | |
| +++ src/diff.tcl | |
| @@ -72,11 +72,11 @@ | |
| 72 | set N [llength $difftxt] |
| 73 | set ii 0 |
| 74 | set nDiffs 0 |
| 75 | set n1 0 |
| 76 | set n2 0 |
| 77 | array set widths {txt 0 ln 0 mkr 1} |
| 78 | while {[set line [getLine $difftxt $N ii]] != -1} { |
| 79 | switch -- [lindex $line 0] { |
| 80 | FILE { |
| 81 | incr nDiffs |
| 82 | foreach wx [list [string length $n1] [string length $n2]] { |
| 83 |
| --- src/diff.tcl | |
| +++ src/diff.tcl | |
| @@ -72,11 +72,11 @@ | |
| 72 | set N [llength $difftxt] |
| 73 | set ii 0 |
| 74 | set nDiffs 0 |
| 75 | set n1 0 |
| 76 | set n2 0 |
| 77 | array set widths {txt 3 ln 3 mkr 1} |
| 78 | while {[set line [getLine $difftxt $N ii]] != -1} { |
| 79 | switch -- [lindex $line 0] { |
| 80 | FILE { |
| 81 | incr nDiffs |
| 82 | foreach wx [list [string length $n1] [string length $n2]] { |
| 83 |