From e5c27f19f58ed61e8a267c23d0bb9864ee22a205 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Fri, 24 Oct 2025 08:52:59 -0400
Subject: [PATCH] Handle window raising better.

---
 scripts/tkremind.in | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/scripts/tkremind.in b/scripts/tkremind.in
index 299402f4..68f7674d 100644
--- a/scripts/tkremind.in
+++ b/scripts/tkremind.in
@@ -2669,7 +2669,10 @@ proc EditReminder {rem args} {
     wm protocol .edit WM_DELETE_WINDOW { .edit.but1 flash; .edit.but1 invoke }
     set ModifyDialogResult 0
     CenterWindow .edit .
-    bind .edit <ButtonPress-1> [list raise .edit]
+    bind .edit <ButtonPress-1> {
+        catch { raise .mod }
+        raise .edit
+    }
     tkwait visibility .edit
     set oldFocus [focus]
     focus .edit.t