From: sls <sls>
Date: Tue, 20 Jun 1995 22:28:38 +0000 (+0000)
Subject: Search path for a wish4.0, otherwise use /usr/local/bin/wish4.0.
X-Git-Tag: r_5_1_4~39
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=b84be89793308cd157a5ce675a757bf9e2df1ad1;p=tkinspect

Search path for a wish4.0, otherwise use /usr/local/bin/wish4.0.
---

diff --git a/install.tcl b/install.tcl
index 46be73e..e2161ba 100644
--- a/install.tcl
+++ b/install.tcl
@@ -87,7 +87,19 @@ set bindir \$prefix/bin
 install_dir .bindir -label "Bin dir:" -variable bindir
 set libdir \$prefix/lib/tkinspect
 install_dir .libdir -label "Library dir:" -variable libdir
-set wish /usr/local/bin/wish
+
+puts "Searching for wish4.0..."
+foreach dir [split $env(PATH) :] {
+    if [file executable $dir/wish4.0] {
+	set wish $dir/wish4.0
+	break
+    }
+}
+if ![info exists wish] {
+    set wish /usr/local/bin/wish4.0
+}
+puts "Using $wish"
+
 install_exec .wish -label "Wish executable:" -variable wish
 pack .prefix .bindir .libdir .wish -side top -fill x