From bb12362cc88c9d55c1c051b71e72ce8eb827ea73 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Wed, 14 Feb 2024 11:16:24 -0500
Subject: [PATCH] Make "Go To Date..." dialog non-modal.

---
 scripts/tkremind | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/scripts/tkremind b/scripts/tkremind
index a165b881..2f47cf6c 100755
--- a/scripts/tkremind
+++ b/scripts/tkremind
@@ -1528,9 +1528,7 @@ proc GotoDialog {} {
     bind .g <KeyPress-Escape> ".g.b.cancel flash; .g.b.cancel invoke"
     CenterWindow .g .
     set oldFocus [focus]
-    grab .g
     focus .g.y.e
-    tkwait window .g
     catch {focus $oldFocus}
 }
 
@@ -1551,7 +1549,7 @@ proc DoGoto {} {
     set month [lsearch -exact $MonthNames [.g.mon cget -text]]
     set CurMonth $month
     set CurYear $year
-    destroy .g
+    catch { destroy .g }
     FillCalWindow
 }