diff options
| author | suresh <suresh@noemail.net> | 1998-06-23 17:02:47 (GMT) |
|---|---|---|
| committer | suresh <suresh@noemail.net> | 1998-06-23 17:02:47 (GMT) |
| commit | b1a09b3103791a99e1696a9d803f297b84454756 (patch) | |
| tree | e17894e614bbac0773878bb5a7dee8be01c1a8b4 /unix/tclUnixInit.c | |
| parent | 43aa4c8c68690976ef9ba901969dfa28e68db791 (diff) | |
| download | tcl-b1a09b3103791a99e1696a9d803f297b84454756.zip tcl-b1a09b3103791a99e1696a9d803f297b84454756.tar.gz tcl-b1a09b3103791a99e1696a9d803f297b84454756.tar.bz2 | |
Added an additional env. var. ("tcl_pkgLibrary") that is searched prior to all
other locations for the "tk.tcl" file. This facilitates application packaging.
FossilOrigin-Name: 7c17f18f00c55bae1d2ea92f1b24de7ec8997652
Diffstat (limited to 'unix/tclUnixInit.c')
| -rw-r--r-- | unix/tclUnixInit.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c index 0001d19..69df49c 100644 --- a/unix/tclUnixInit.c +++ b/unix/tclUnixInit.c @@ -59,6 +59,9 @@ static char initScript[] = rename tclInit {}\n\ set errors {}\n\ set dirs {}\n\ + if {[info exists env(tcl_pkgLibrary)]} {\n\ + lappend dirs $env(tcl_pkgLibrary)\n\ + }\n\ if [info exists env(TCL_LIBRARY)] {\n\ lappend dirs $env(TCL_LIBRARY)\n\ }\n\ |