From e1e72ea75ed0a7f86f0f3efcc0d1d9c0497d9fb0 Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Thu, 16 Feb 1995 00:09:08 +0000
Subject: [PATCH] Add a Tk version check.

---
 version.tcl | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/version.tcl b/version.tcl
index daefc5c..1b1b619 100644
--- a/version.tcl
+++ b/version.tcl
@@ -5,7 +5,14 @@
 #
 
 proc version_init {} {
-    global tkinspect
-    set tkinspect(release) 5.0.4
+    global tkinspect tk_version
+    set tkinspect(release) 5.0.5
     set tkinspect(release_date) "Feb 14, 1995"
+    scan $tk_version "%d.%d" major minor
+    if {$major != 4} {
+	puts stderr \
+      "tkinspect-5 requires Tk 4.x, you appear to be running Tk $major.$minor"
+	exit 1
+    }
 }
+
-- 
2.23.0