From: sls <sls>
Date: Wed, 21 Jun 1995 09:43:19 +0000 (+0000)
Subject: Check patchlevel and warning about betas prior to 4.0b4.
X-Git-Tag: r_5_1_4~31
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=a43e01b57f71d4e61ca9aeb59d4f18af38212e61;p=tkinspect

Check patchlevel and warning about betas prior to 4.0b4.
Bump version to 5.1.3.
---

diff --git a/version.tcl b/version.tcl
index abeab28..5b2da2d 100644
--- a/version.tcl
+++ b/version.tcl
@@ -5,14 +5,18 @@
 #
 
 proc version_init {} {
-    global tkinspect tk_version
-    set tkinspect(release) 5.1.2
-    set tkinspect(release_date) "June 16, 1995"
+    global tkinspect tk_version tk_patchLevel
+    set tkinspect(release) 5.1.3
+    set tkinspect(release_date) "June 21, 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
     }
+    if {[scan $tk_patchLevel "4.0b%d" beta] == 1 && $beta < 4} {
+	tk_dialog .warning "Warning!" \
+"tkinspect-$tkinspect(release) has only been tested on 4.0b4.  You might have problems running on $tk_patchLevel." warning 0 Ok
+    }
 }