felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-17 23:08:40 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Don't barf if -underlinefg is not available; don't lose whitespace in MOON message.

Browse Source
This commit is contained in:
Dianne Skoll
2023-02-27 10:40:59 -05:00
parent cd7be006c9
commit 395bad96a7
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
scripts/tkremind
View File

@@ -3326,7 +3326,9 @@ proc EditableEnter { w } {
set c [$w tag cget $ctag -foreground] set c [$w tag cget $ctag -foreground]
} }
if {"$c" != ""} { if {"$c" != ""} {
$w tag configure $tag -underline 1 -underlinefg $c $w tag configure $tag -underline 1
# underlinefg not supported on older versions of Tk
eval { $w tag configure $tag -underlinefg $c }
} else { } else {
$w tag configure $tag -underline 1 $w tag configure $tag -underline 1
} }
@@ -3633,7 +3635,9 @@ proc DoShadeSpecial { n r g b } {
#*********************************************************************** #***********************************************************************
proc DoMoonSpecial { n stuff fntag day } { proc DoMoonSpecial { n stuff fntag day } {
set msg "" set msg ""
set num [scan $stuff "%d %d %d %s" phase junk1 junk2 msg] # Yes, this is gross, but the odds of "\" appearing
# in the text associated with a MOON are small.
set num [scan $stuff {%d %d %d %[^\]} phase junk1 junk2 msg]
if {$num < 1} { if {$num < 1} {
return return
} }