From: sls <sls>
Date: Thu, 16 Feb 1995 00:09:08 +0000 (+0000)
Subject: Add a Tk version check.
X-Git-Tag: r5_1_1~43
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=e1e72ea75ed0a7f86f0f3efcc0d1d9c0497d9fb0;p=tkinspect

Add a Tk version check.
---

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
+    }
 }
+