Artifact
33847effe05b8e8f84de8ae141abe36cbe6a43af:
Attachment "None" to
ticket [403526ffff]
added by
dgp
2001-02-01 01:16:56.
Index: library/init.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/init.tcl,v
retrieving revision 1.44
diff -u -r1.44 init.tcl
--- library/init.tcl 2000/12/11 04:17:38 1.44
+++ library/init.tcl 2001/01/31 18:15:30
@@ -591,3 +591,8 @@
}
}
+
+# Perform any local initialization.
+if {[file exists [file join [info library] init-local.tcl]]} {
+ source [file join [info library] init-local.tcl]
+}