Use keypress-slash to auto-fill COMPLETE-THROUGH field instead of double-click.

This commit is contained in:
Dianne Skoll
2025-08-16 11:54:19 -04:00
parent 0c9ec11fce
commit 86f65e11bb
2 changed files with 9 additions and 7 deletions

View File

@@ -98,12 +98,13 @@ The fifth group of controls associates a time and possible duration
with the reminder. You can also specify advance notice, possibly
repeating.
The sixth control allows you to specify whether the reminder is a TODO,
and if so, its completion date. Double-clicking in the "Complete through:"
field automatically fills in the date of the calendar entry. Otherwise,
enter a possible completion date in the form YYYY-MM-DD. You can also enter
a number in the "Max overdue days:" field to limit how many days past the
due date \fBRemind\fR will keep reminding you of the TODO.
The sixth control allows you to specify whether the reminder is a
TODO, and if so, its completion date. Typing a slash "/" in the
"Complete through:" field automatically fills in the date of the
calendar entry. Otherwise, enter a completion date in the form
YYYY-MM-DD. You can also enter a number in the "Max overdue days:"
field to limit how many days past the due date \fBRemind\fR will keep
reminding you of the TODO.
The seventh control specifies what \fBRemind\fR should do if a reminder
falls on a holiday or weekend.

View File

@@ -1733,6 +1733,7 @@ proc complete_through_today { w } {
} else {
$w.complete_through insert end [clock format [clock seconds] -format %Y-%m-%d]
}
return -code break
}
#---------------------------------------------------------------------------
@@ -1970,7 +1971,7 @@ proc CreateModifyDialog {w day firstDay args} {
$w.todobut deselect
label $w.lcomplete -text "Complete through: "
entry $w.complete_through -width 20
bind $w.complete_through <Double-Button-1> [list complete_through_today $w]
bind $w.complete_through <KeyPress-slash> [list complete_through_today $w]
balloon_add_help $w.complete_through "Enter the date of completed TODO in the form YYYY-MM-DD"
label $w.loverdue -text "Max overdue days: "
entry $w.max_overdue -width 6