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 /win/tclWinInit.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 'win/tclWinInit.c')
-rw-r--r-- | win/tclWinInit.c | 3 |
1 files changed, 3 insertions, 0 deletions
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\ |