diff options
| author | suresh <suresh> | 1998-06-23 17:02:48 (GMT) |
|---|---|---|
| committer | suresh <suresh> | 1998-06-23 17:02:48 (GMT) |
| commit | 49c256e178a749d91ee41cfbcb8b200e8206ba4a (patch) | |
| tree | e17894e614bbac0773878bb5a7dee8be01c1a8b4 /unix/tclUnixInit.c | |
| parent | 693d8104b72beb51e3cfa32def51384c273a6b26 (diff) | |
| download | tcl-49c256e178a749d91ee41cfbcb8b200e8206ba4a.zip tcl-49c256e178a749d91ee41cfbcb8b200e8206ba4a.tar.gz tcl-49c256e178a749d91ee41cfbcb8b200e8206ba4a.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.
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\ |