From 49c256e178a749d91ee41cfbcb8b200e8206ba4a Mon Sep 17 00:00:00 2001
From: suresh <suresh>
Date: Tue, 23 Jun 1998 17:02:48 +0000
Subject: Added an additional env. var. ("tcl_pkgLibrary") that is searched
 prior to all   other locations for the "tk.tcl" file. This facilitates
 application packaging.

---
 unix/tclUnixInit.c | 3 +++
 win/tclWinInit.c   | 3 +++
 2 files changed, 6 insertions(+)

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\
-- 
cgit v0.12