Fossil SCM
Set text widgets to "-state disabled" after loading data.
Commit
302ab3a4e81ec124a320ac2a266cdf1d7dae5586
Parent
0a41e2b3dc24ebe…
1 file changed
+7
-5
+7
-5
| --- src/diffcmd.c | ||
| +++ src/diffcmd.c | ||
| @@ -709,15 +709,17 @@ | ||
| 709 | 709 | @ } |
| 710 | 710 | @ } |
| 711 | 711 | @ } |
| 712 | 712 | @ close $in |
| 713 | 713 | @ |
| 714 | -@ foreach c {.lnA .mkr .lnB} { | |
| 715 | -@ $c config -width $widths([colType $c]) | |
| 716 | -@ } | |
| 717 | -@ foreach c {.txtA .txtB} { | |
| 718 | -@ $c config -tabs [expr {[font measure mono 0]*($widths(txt)+1)}] | |
| 714 | +@ foreach c [cols] { | |
| 715 | +@ if {[colType $c] eq "txt"} { | |
| 716 | +@ $c config -tabs [expr {[font measure mono 0]*($widths(txt)+1)}] | |
| 717 | +@ } else { | |
| 718 | +@ $c config -width $widths([colType $c]) | |
| 719 | +@ } | |
| 720 | +@ $c config -state disabled | |
| 719 | 721 | @ } |
| 720 | 722 | @ } |
| 721 | 723 | @ |
| 722 | 724 | @ proc viewDiff {idx} { |
| 723 | 725 | @ .files config -text [.files.menu entrycget $idx -label] |
| 724 | 726 |
| --- src/diffcmd.c | |
| +++ src/diffcmd.c | |
| @@ -709,15 +709,17 @@ | |
| 709 | @ } |
| 710 | @ } |
| 711 | @ } |
| 712 | @ close $in |
| 713 | @ |
| 714 | @ foreach c {.lnA .mkr .lnB} { |
| 715 | @ $c config -width $widths([colType $c]) |
| 716 | @ } |
| 717 | @ foreach c {.txtA .txtB} { |
| 718 | @ $c config -tabs [expr {[font measure mono 0]*($widths(txt)+1)}] |
| 719 | @ } |
| 720 | @ } |
| 721 | @ |
| 722 | @ proc viewDiff {idx} { |
| 723 | @ .files config -text [.files.menu entrycget $idx -label] |
| 724 |
| --- src/diffcmd.c | |
| +++ src/diffcmd.c | |
| @@ -709,15 +709,17 @@ | |
| 709 | @ } |
| 710 | @ } |
| 711 | @ } |
| 712 | @ close $in |
| 713 | @ |
| 714 | @ foreach c [cols] { |
| 715 | @ if {[colType $c] eq "txt"} { |
| 716 | @ $c config -tabs [expr {[font measure mono 0]*($widths(txt)+1)}] |
| 717 | @ } else { |
| 718 | @ $c config -width $widths([colType $c]) |
| 719 | @ } |
| 720 | @ $c config -state disabled |
| 721 | @ } |
| 722 | @ } |
| 723 | @ |
| 724 | @ proc viewDiff {idx} { |
| 725 | @ .files config -text [.files.menu entrycget $idx -label] |
| 726 |