blob: 9a749b85ecbb696aadb33c2464f0740c1ca60455 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
$NetBSD: patch-ag,v 1.2 2000/08/31 17:26:15 jwise Exp $
--- tkXBlast/setup.tcl.orig Wed Dec 11 16:26:43 1996
+++ tkXBlast/setup.tcl Thu Aug 31 13:02:19 2000
@@ -47,20 +47,9 @@
set libPath [lindex $argv 0]
set binPath [lindex $argv 1]
set tkLibPath [lindex $argv 2]
+set wishPath [lindex $argv 3]
-set wishCmd [testWish wish]
-puts "Enter the path for \"wish\" on your system (default is \"$wishCmd\"):"
-
-gets file0 newWishCmd
-if {$newWishCmd != {}} {
- set wishCmd $newWishCmd
-} else {
- if {$wishCmd == {}} {
- puts "Error: path for \"wish\" not defined."
- puts "Aborting programm"
- exit 1
- }
-}
+set wishCmd [file join $wishPath wish]
set version [versionWish $wishCmd]
puts "tk version is $version"
|
