If we use "-m" in ExtraRemindArgs, set $MondayFirst in tkremind

Patch courtesy of Luís Henriques
This commit is contained in:
Dianne Skoll
2022-10-24 09:35:27 -04:00
parent f3d969f658
commit 28d0251093

View File

@@ -955,6 +955,7 @@ proc WriteOptionsToFile {} {
#***********************************************************************
proc LoadOptions {} {
global Option ConfigFile
global MondayFirst
set problem [catch {set f [open "$ConfigFile" "r"]}]
if {$problem} {
return
@@ -974,6 +975,9 @@ proc LoadOptions {} {
set Option($key) $val
}
close $f
if {[regexp -- {-m.*} $Option(ExtraRemindArgs)]} {
set MondayFirst 1
}
font configure CalboxFont {*}$Option(CalboxFont)
font configure HeadingFont {*}$Option(HeadingFont)
}