Fossil SCM
On Cygwin $tcl_platform(platform) is "unix", but we want the same font as on win32 if the "win32" mode is used.
Commit
09c2cf3e585ae2b1e0db65dc4d898a42477e4252
Parent
7e9c7c04540c052…
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 {$tcl_platform(platform)=="windows"} {$c config -font {courier 9}} | |
| 873 | +@ if {[tk windowingsystem]=="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 {$tcl_platform(platform)=="windows"} {$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]=="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 |