From b84be89793308cd157a5ce675a757bf9e2df1ad1 Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Tue, 20 Jun 1995 22:28:38 +0000
Subject: [PATCH] Search path for a wish4.0, otherwise use
 /usr/local/bin/wish4.0.

---
 install.tcl | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

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
 
-- 
2.23.0