Raise .edit on button press.

2026-04-16 06:18:47 +02:00 · 2025-10-24 08:51:06 -04:00
parent 5323245529
commit f9aa53433e
1 changed files with 1 additions and 0 deletions
--- a/scripts/tkremind.in
+++ b/scripts/tkremind.in
@@ -2669,6 +2669,7 @@ 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]
    tkwait visibility .edit
    set oldFocus [focus]
    focus .edit.t