From becf1fc4598abd0653856fecc335e217526a90a2 Mon Sep 17 00:00:00 2001 From: Dianne Skoll Date: Tue, 29 Dec 2020 12:48:24 -0500 Subject: [PATCH] Wait 100ms to update after changes. --- scripts/tkremind | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/scripts/tkremind b/scripts/tkremind index fb311130..981b06d9 100755 --- a/scripts/tkremind +++ b/scripts/tkremind @@ -3156,10 +3156,14 @@ proc UpdateForChanges {} { RestartBackgroundRemindDaemon } +# Schedule an update for 100ms in the future. +# That way, if we get a rapid succession of +# change notifications, we (probably) only +# end up doing one call to UpdateForChanges proc ScheduleUpdateForChanges {} { global TimerUpdateForChanges catch { after cancel $TimerUpdateForChanges } - set TimerUpdateForChanges [after 250 UpdateForChanges] + set TimerUpdateForChanges [after 100 UpdateForChanges] } #***********************************************************************