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 | |
| 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.
| -rw-r--r-- | unix/tclUnixInit.c | 3 | ||||
| -rw-r--r-- | win/tclWinInit.c | 3 |
2 files changed, 6 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\ diff --git a/win/tclWinInit.c b/win/tclWinInit.c index be8dbbd..fee2aa7 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -108,6 +108,9 @@ static char *initScript = }\n\ } \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\ |