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

Make right-button on a day number show reminders for that day.

Browse Source
This commit is contained in:
Dianne Skoll
2025-08-11 21:40:25 -04:00
parent 6d86d88037
commit 35cae5f97c
1 changed files with 23 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
scripts/tkremind.in
View File

@@ -645,7 +645,8 @@ proc ConfigureCalFrame { w firstDay numDays } {
raise $w.t$i
set d [expr $i-$first+1]
$w.l$i configure -text $d -state normal -relief flat \
-command "ModifyDay $d $firstDay" -foreground $Option(LabelColor) -background $Option(WinBackground) -highlightcolor $Option(LineColor) -highlightbackground $Option(WinBackground)
-command "ModifyDay $d $firstDay" -foreground $Option(LabelColor) -background $Option(WinBackground) -highlightcolor $Option(LineColor) -highlightbackground $Option(WinBackground)
bind $w.l$i <ButtonPress-3> [list ShowSpecificDayReminders $d]
balloon_add_help $w.l$i "Add a reminder..."
$w.t$i configure -relief sunken -takefocus 1 -state normal -foreground $Option(TextColor) -background $Option(BackgroundColor)
$w.t$i delete 1.0 end
@@ -748,7 +749,7 @@ proc CreateCalWindow { dayNames } {
button .b.quit -text {Quit} -command {Quit} -bd 0 -foreground $Option(LabelColor) -background $Option(WinBackground) -highlightthickness 1 -highlightcolor $Option(LineColor) -highlightbackground $Option(WinBackground)
balloon_add_help .b.quit "Quit TkRemind"
label .b.status -text "" -width 25 -relief flat -bd 0 -foreground $Option(LabelColor) -background $Option(WinBackground) -highlightthickness 0
bind .b.status <ButtonPress-1> [list ShowTodaysReminders 1]
bind .b.status <ButtonPress-1> [list ShowTodaysReminders 1 ""]
balloon_add_help .b.status "Show Today's Reminders"
label .b.nqueued -text "" -width 20 -relief flat -bd 0 -foreground $Option(LabelColor) -background $Option(WinBackground) -highlightthickness 0
pack .b.prev .b.this .b.next .b.goto .b.print .b.options .b.queue .b.quit -side left -fill both -padx 1
@@ -1691,6 +1692,17 @@ proc Quit {} {
}
}
#---------------------------------------------------------------------------
# ShowSpecificDayReminders - show reminders for a specific day
# Arguments:
# d - day whose reminders should be shown
#---------------------------------------------------------------------------
proc ShowSpecificDayReminders { d } {
global CurYear CurMonth
set date [format "%04d-%02d-%02d" $CurYear [expr 1 + $CurMonth] $d]
ShowTodaysReminders 1 $date
}
#---------------------------------------------------------------------------
# CreateModifyDialog -- create dialog for adding a reminder
# Arguments:
@@ -3012,7 +3024,7 @@ proc DaemonReadable { file } {
catch { unset Ignore }
Initialize
FillCalWindow
ShowTodaysReminders 0
ShowTodaysReminders 0 ""
}
"reread" {
if {[dict exists $obj command]} {
@@ -3210,7 +3222,7 @@ proc main {} {
}
FindConfigFile
LoadOptions
ShowTodaysReminders 0
ShowTodaysReminders 0 ""
ScanForTags $AppendFile
CreateCalWindow $DayNames
FillCalWindow
@@ -4242,12 +4254,13 @@ proc DisplayTimeContinuously {} {
# %PROCEDURE: ShowTodaysReminders
# %ARGUMENTS:
# force -- if true, show today's reminders even if option is disabled.
# date -- if non-blank, show reminders for specified date rather than today.
# %RETURNS:
# Nothing
# %DESCRIPTION:
# Shows all of today's non-timed reminders in a window
#***********************************************************************
proc ShowTodaysReminders { force } {
proc ShowTodaysReminders { force date } {
global Option
global Remind
global ReminderFile
@@ -4278,7 +4291,11 @@ proc ShowTodaysReminders { force } {
append cmdline "-b1 "
}
append cmdline $Option(ExtraRemindArgs);
append cmdline " $ReminderFile 2>@1"
append cmdline " $ReminderFile"
if {"$date" != ""} {
append cmdline " $date"
}
append cmdline " 2>@1"
set f [open $cmdline r]
while {[gets $f line] >= 0} {
append stuff "$line\n"