Handle window raising better.

2026-04-16 06:18:47 +02:00 · 2025-10-24 08:52:59 -04:00
parent f9aa53433e
commit e5c27f19f5
1 changed files with 4 additions and 1 deletions
--- 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