blob: a43a5e85765a868f8ebc268a8bee2bcf606dc81a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
--- demos/fingerprint.tcl Mon Sep 11 12:01:58 2000
+++ demos/fingerprint.tcl.new Sun Mar 14 14:37:13 2004
@@ -5,9 +5,9 @@
# a little in order to increase its effectiveness.
# Now we make cunning use of the backslash/shell trick \
-[ -x `dirname $0`/../shapewish ] && exec `dirname $0`/../shapewish $0 ${1+"$@"} || exec wish8.0 $0 ${1+"$@"} || { echo "`basename $0`: couldn't start wish" >&2 ; exit 1; }
+[ -x `dirname $0`/../shapewish ] && exec `dirname $0`/../shapewish $0 ${1+"$@"} || exec %%WISH%% $0 ${1+"$@"} || { echo "`basename $0`: couldn't start wish" >&2 ; exit 1; }
-set dir [file join [pwd] [file dirname [info script]] ..]
+set dir [file join [pwd] [file dirname [info script]]]
lappend auto_path [file join $dir ..]
package require Shape
|
