From: Guido van Rossum <guido@python.org>
Date: Fri, 5 Nov 1999 18:09:56 +0000 (+0000)
Subject: Patch by Dieter Maurer to make things work for Tcl/Tk 8.1 (tested with
X-Git-Tag: v1.6a1~763
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6b26a06037d5ceacf2279f8c1f145521316037c9;p=thirdparty%2FPython%2Fcpython.git

Patch by Dieter Maurer to make things work for Tcl/Tk 8.1 (tested with
8.1.1).  His approach doesn't work with Tcl/Tk 8.2, so I've placed it
inside #if TKMAJORMINOR == 8001 and #endif.  See also his patch for
tkappinit.c.
---

diff --git a/Modules/_tkinter.c b/Modules/_tkinter.c
index ea0c8b17d15b..fd0a69c069b4 100644
--- a/Modules/_tkinter.c
+++ b/Modules/_tkinter.c
@@ -491,6 +491,10 @@ Tkapp_New(screenName, baseName, className, interactive)
 
 	v->interp = Tcl_CreateInterp();
 
+#if TKMAJORMINOR == 8001
+	TclpInitLibraryPath(baseName);
+#endif /* TKMAJORMINOR */
+
 #if defined(macintosh) && TKMAJORMINOR >= 8000
 	/* This seems to be needed since Tk 8.0 */
 	ClearMenuBar();