From 27c74be02b256963d47d3a2be6eb57ec5e70af94 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Thu, 21 Mar 2024 12:11:39 -0400
Subject: [PATCH] Don't need to monitor reminder file for changes; reap
 zombies.

---
 scripts/tkremind | 39 ++++-----------------------------------
 1 file changed, 4 insertions(+), 35 deletions(-)

diff --git a/scripts/tkremind b/scripts/tkremind
index d4873fac..90f4361f 100755
--- a/scripts/tkremind
+++ b/scripts/tkremind
@@ -485,41 +485,6 @@ proc Initialize {} {
     catch {
 	set ReminderFileModTime [file mtime $ReminderFile]
     }
-
-    MonitorReminderFile
-
-#   puts "CommandLine: $CommandLine"
-}
-
-#---------------------------------------------------------------------------
-# MonitorReminderFile
-# If Reminder File modtime changes, restart daemon
-#---------------------------------------------------------------------------
-proc MonitorReminderFile {} {
-    global ReminderFileModTime ReminderFile
-
-    if {$ReminderFileModTime < 0} {
-	# Could not stat file
-	return
-    }
-
-    set mtime -1
-    catch {
-	set mtime [file mtime $ReminderFile]
-    }
-    if {$mtime < 0} {
-	# Doh!
-	return
-    }
-
-    # Run ourselves again
-    after 60000 MonitorReminderFile
-
-    # Redraw calendar and restart daemon if needed
-    if {$ReminderFileModTime < $mtime} {
-	set ReminderFileModTime $mtime
-        ScheduleUpdateForChanges
-    }
 }
 
 #***********************************************************************
@@ -3939,6 +3904,10 @@ proc CreateMoonWindows {} {
 #***********************************************************************
 proc DisplayTimeContinuously {} {
     DisplayTime
+
+    # Reap any zombies
+    eval { exec true }
+
     set secs [clock format [clock seconds] -format "%S"]
     # Doh -- don't interpret as an octal number if leading zero
     scan $secs "%d" decSecs