Fossil SCM
Minor width adjustment for the merge-info GUI on Windows.
Commit
bf1af2e5467e88d8037b2963c057079583869d27b0d08ed7ad09a50110154c7f
Parent
1cf0d372fa69c7a…
1 file changed
+1
+1
| --- src/merge.tcl | ||
| +++ src/merge.tcl | ||
| @@ -224,10 +224,11 @@ | ||
| 224 | 224 | if {$lnB>$mx} {set mx $lnB} |
| 225 | 225 | if {$lnC>$mx} {set mx $lnC} |
| 226 | 226 | if {$lnD>$mx} {set mx $lnD} |
| 227 | 227 | global lnWidth |
| 228 | 228 | set lnWidth [string length [format %d $mx]] |
| 229 | + if {$::tcl_platform(platform)=="windows"} {incr lnWidth} | |
| 229 | 230 | .lnA config -width $lnWidth |
| 230 | 231 | .lnB config -width $lnWidth |
| 231 | 232 | .lnC config -width $lnWidth |
| 232 | 233 | .lnD config -width $lnWidth |
| 233 | 234 | grid columnconfig . {0 2 4 6} -minsize $lnWidth |
| 234 | 235 |
| --- src/merge.tcl | |
| +++ src/merge.tcl | |
| @@ -224,10 +224,11 @@ | |
| 224 | if {$lnB>$mx} {set mx $lnB} |
| 225 | if {$lnC>$mx} {set mx $lnC} |
| 226 | if {$lnD>$mx} {set mx $lnD} |
| 227 | global lnWidth |
| 228 | set lnWidth [string length [format %d $mx]] |
| 229 | .lnA config -width $lnWidth |
| 230 | .lnB config -width $lnWidth |
| 231 | .lnC config -width $lnWidth |
| 232 | .lnD config -width $lnWidth |
| 233 | grid columnconfig . {0 2 4 6} -minsize $lnWidth |
| 234 |
| --- src/merge.tcl | |
| +++ src/merge.tcl | |
| @@ -224,10 +224,11 @@ | |
| 224 | if {$lnB>$mx} {set mx $lnB} |
| 225 | if {$lnC>$mx} {set mx $lnC} |
| 226 | if {$lnD>$mx} {set mx $lnD} |
| 227 | global lnWidth |
| 228 | set lnWidth [string length [format %d $mx]] |
| 229 | if {$::tcl_platform(platform)=="windows"} {incr lnWidth} |
| 230 | .lnA config -width $lnWidth |
| 231 | .lnB config -width $lnWidth |
| 232 | .lnC config -width $lnWidth |
| 233 | .lnD config -width $lnWidth |
| 234 | grid columnconfig . {0 2 4 6} -minsize $lnWidth |
| 235 |