Fossil SCM
Tcl script code style fix.
Commit
41dbd44b12ef0002543d04584b952f9fb54290f4
Parent
4c80aa2ae106a5b…
1 file changed
+1
-1
+1
-1
| --- src/diffcmd.c | ||
| +++ src/diffcmd.c | ||
| @@ -868,11 +868,11 @@ | ||
| 868 | 868 | @ } |
| 869 | 869 | @ text .mkr |
| 870 | 870 | @ |
| 871 | 871 | @ foreach c [cols] { |
| 872 | 872 | @ set keyPrefix [string toupper [colType $c]]_COL_ |
| 873 | -@ if {[tk windowingsystem]=="win32"} {$c config -font {courier 9}} | |
| 873 | +@ if {[tk windowingsystem] eq "win32"} {$c config -font {courier 9}} | |
| 874 | 874 | @ $c config -bg $CFG(${keyPrefix}BG) -fg $CFG(${keyPrefix}FG) -borderwidth 0 \ |
| 875 | 875 | @ -padx $CFG(PADX) -yscroll sync-y |
| 876 | 876 | @ $c tag config hr -spacing1 $CFG(HR_PAD_TOP) -spacing3 $CFG(HR_PAD_BTM) \ |
| 877 | 877 | @ -foreground $CFG(HR_FG) |
| 878 | 878 | @ $c tag config fn -spacing1 $CFG(FN_PAD) -spacing3 $CFG(FN_PAD) |
| 879 | 879 |
| --- src/diffcmd.c | |
| +++ src/diffcmd.c | |
| @@ -868,11 +868,11 @@ | |
| 868 | @ } |
| 869 | @ text .mkr |
| 870 | @ |
| 871 | @ foreach c [cols] { |
| 872 | @ set keyPrefix [string toupper [colType $c]]_COL_ |
| 873 | @ if {[tk windowingsystem]=="win32"} {$c config -font {courier 9}} |
| 874 | @ $c config -bg $CFG(${keyPrefix}BG) -fg $CFG(${keyPrefix}FG) -borderwidth 0 \ |
| 875 | @ -padx $CFG(PADX) -yscroll sync-y |
| 876 | @ $c tag config hr -spacing1 $CFG(HR_PAD_TOP) -spacing3 $CFG(HR_PAD_BTM) \ |
| 877 | @ -foreground $CFG(HR_FG) |
| 878 | @ $c tag config fn -spacing1 $CFG(FN_PAD) -spacing3 $CFG(FN_PAD) |
| 879 |
| --- src/diffcmd.c | |
| +++ src/diffcmd.c | |
| @@ -868,11 +868,11 @@ | |
| 868 | @ } |
| 869 | @ text .mkr |
| 870 | @ |
| 871 | @ foreach c [cols] { |
| 872 | @ set keyPrefix [string toupper [colType $c]]_COL_ |
| 873 | @ if {[tk windowingsystem] eq "win32"} {$c config -font {courier 9}} |
| 874 | @ $c config -bg $CFG(${keyPrefix}BG) -fg $CFG(${keyPrefix}FG) -borderwidth 0 \ |
| 875 | @ -padx $CFG(PADX) -yscroll sync-y |
| 876 | @ $c tag config hr -spacing1 $CFG(HR_PAD_TOP) -spacing3 $CFG(HR_PAD_BTM) \ |
| 877 | @ -foreground $CFG(HR_FG) |
| 878 | @ $c tag config fn -spacing1 $CFG(FN_PAD) -spacing3 $CFG(FN_PAD) |
| 879 |