From 30e4a9fc50e38bf67967ff81f46c5e70f62f3771 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Thu, 6 Nov 2025 21:42:57 -0500
Subject: [PATCH] Catch possible error

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

diff --git a/scripts/tkremind.in b/scripts/tkremind.in
index 6f123b40..bf6cfd5a 100644
--- a/scripts/tkremind.in
+++ b/scripts/tkremind.in
@@ -1084,7 +1084,7 @@ proc EditOptions {} {
     button $w.cancel -text "Cancel" -command "CancelOptions; destroy $w"
     wm protocol $w WM_DELETE_WINDOW "CancelOptions; destroy $w"
     pack $w.default $w.dark $w.save $w.cancel -in $w.b -side left -expand 0 -fill x
-    bind $w <Destroy> "tk fontchooser hide"
+    bind $w <Destroy> {catch { tk fontchooser hide } }
     bind $w <KeyPress-Escape> "$w.cancel flash; $w.cancel invoke"
     bind $w <Control-KeyPress-w> "$w.cancel flash; $w.cancel invoke"
     CenterWindow $w .