From 6b26a06037d5ceacf2279f8c1f145521316037c9 Mon Sep 17 00:00:00 2001 From: Guido van Rossum Date: Fri, 5 Nov 1999 18:09:56 +0000 Subject: [PATCH] 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. --- Modules/_tkinter.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Modules/_tkinter.c b/Modules/_tkinter.c index ea0c8b17d1..fd0a69c069 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(); -- 2.49.0