blob: 55ac63ede7a7518c8812e9f41be4ab46f594dd98 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
--- a/gorilla.in
+++ b/gorilla.in
@@ -1,10 +1,13 @@
#! /bin/sh
# the next line restarts using wish \
exec @wish@ "$0" ${1+"$@"}
+
set myName [info script]
+set myGorilla /opt/gorilla-1.4/gorilla.tcl
+
if {![catch {
set linkName [file readlink $myName]
}]} {
set myName $linkName
}
-source [file join [file dirname $myName] gorilla.tcl]
+source [file join [file dirname $myName] $myGorilla]
|