From 86f65e11bb7689ce87a4419b4e7b1bb455a7ede3 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Sat, 16 Aug 2025 11:54:19 -0400
Subject: [PATCH] Use keypress-slash to auto-fill COMPLETE-THROUGH field
 instead of double-click.

---
 man/tkremind.1.in   | 13 +++++++------
 scripts/tkremind.in |  3 ++-
 2 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/man/tkremind.1.in b/man/tkremind.1.in
index 1420bd71..46902b8b 100644
--- a/man/tkremind.1.in
+++ b/man/tkremind.1.in
@@ -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.
diff --git a/scripts/tkremind.in b/scripts/tkremind.in
index b11b623f..a311c654 100644
--- a/scripts/tkremind.in
+++ b/scripts/tkremind.in
@@ -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