From 69d45618c61dacf95afd3fc4b8d4e302a7ff2535 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Wed, 13 Jan 2021 19:56:23 -0500
Subject: [PATCH] Ensure we have Tcl/Tk 8.5 or newer.

---
 scripts/tkremind | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/scripts/tkremind b/scripts/tkremind
index fd7dc0d7..69fd681f 100755
--- a/scripts/tkremind
+++ b/scripts/tkremind
@@ -14,6 +14,13 @@
 # the next line restarts using wish \
 exec wish "$0" "$@"
 
+# We need at least version 8.5 because of {*} list expansion operator
+if {[catch {package require Tcl 8.5}]} {
+    puts "This program requires Tcl 8.5 or higher."
+    puts "You have version [info tclversion]"
+    exit 1
+}
+
 wm withdraw .
 
 set Hostname [exec hostname]