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

diff --git a/install.tcl b/install.tcl
index 46be73ef39424cd76596f2a6f567c14c65e43e92..e2161baebdd2340231a379725cb9a91385787622 100644 (file)
--- 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