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

Make moon messages right-clickable.

Browse Source
This commit is contained in:
Dianne Skoll
2021-12-26 11:59:59 -05:00
parent c1a12ea4e9
commit 1ed60fecee
1 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
scripts/tkremind
View File

@@ -1018,7 +1018,7 @@ proc FillCalWindow {} {
continue
}
"MOON" {
DoMoonSpecial $n $stuff
DoMoonSpecial $n $stuff $fntag
continue
}
"COLOUR" -
@@ -3429,12 +3429,13 @@ proc DoShadeSpecial { n r g b } {
# %ARGUMENTS:
# n -- calendar box for moon
# stuff -- Remind command line
# fntag - filename tag, if any
# %RETURNS:
# Nothing
# %DESCRIPTION:
# Handles the "MOON" special -- draws a moon symbol
#***********************************************************************
proc DoMoonSpecial { n stuff } {
proc DoMoonSpecial { n stuff fntag } {
set msg ""
set num [scan $stuff "%d %d %d %s" phase junk1 junk2 msg]
if {$num < 1} {
@@ -3453,9 +3454,17 @@ proc DoMoonSpecial { n stuff } {
.cal.t$n window create 1.0 -window $win
if {$msg != ""} {
.cal.t$n insert 1.1 " $msg\n"
if {"$fntag" == "x"} {
.cal.t$n insert 1.1 " $msg\n"
} else {
.cal.t$n insert 1.1 " $msg\n" [list REM $fntag]
}
} else {
.cal.t$n insert 1.1 "\n"
if {"$fntag" == "x"} {
.cal.t$n insert 1.1 "\n"
} else {
.cal.t$n insert 1.1 "\n" [list REM $fntag]
}
}
.cal.t$n configure -state disabled
}