Make SPECIALs case-insensitive.

This commit is contained in:
Dianne Skoll
2020-01-25 16:07:18 -05:00
parent 5801e143ea
commit 57134a182c
2 changed files with 3 additions and 1 deletions

View File

@@ -958,7 +958,7 @@ proc FillCalWindow {} {
set n [expr $day+$offset]
set month [string trimleft $month 0]
set extratags ""
switch -exact -- $type {
switch -nocase -- $type {
"WEEK" {
set stuff [string trimleft $stuff]
set stuff [string trimright $stuff]
@@ -998,6 +998,7 @@ proc FillCalWindow {} {
.cal.t$n tag configure $extratags -foreground "#$color"
.cal.t$n configure -state disabled
set stuff $rest
set type "COLOR"
}
}
}

View File

@@ -251,6 +251,7 @@ sub parse_input
}
my $d1 = $d;
$d1 =~ s/^0+//;
$special = uc($special);
if ($special eq 'HTML') {
push(@{$days->[$d]}, $body);
} elsif ($special eq 'HTMLCLASS') {