From c4e5190ec21c0cce538a36935f64c00b7a8d2a56 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Sun, 2 Nov 2025 10:59:39 -0500
Subject: [PATCH] Add missing key bindings.

---
 scripts/tkremind.in | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/scripts/tkremind.in b/scripts/tkremind.in
index 2284f36e..96ccd73b 100644
--- a/scripts/tkremind.in
+++ b/scripts/tkremind.in
@@ -5516,6 +5516,8 @@ proc ShowErrors {} {
     if {$i > 0} {
         $w.t insert end "\nIf an error message is underlined when you hover over it, click button-1 to edit the offending file at the line number of the error.\n"
     }
+    bind $w <KeyPress-Escape> "$w.ok flash; $w.ok invoke"
+    bind $w <Control-KeyPress-w> "$w.ok flash; $w.ok invoke"
     $w.t configure -state disabled
     CenterWindow $w .
 }