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.
This commit is contained in:
Guido van Rossum 1999-11-05 18:09:56 +00:00
parent f941acda60
commit 6b26a06037

View file

@ -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();