#include <tcl.h>
#include <tk.h>
-extern char *getprogramname ();
+extern char *Py_GetProgramName ();
/* Internal declarations from tkInt.h. */
#if (TK_MAJOR_VERSION*1000 + TK_MINOR_VERSION) >= 4001
char *className = NULL;
int interactive = 0;
- baseName = strrchr (getprogramname (), '/');
+ baseName = strrchr (Py_GetProgramName (), '/');
if (baseName != NULL)
baseName++;
else
- baseName = getprogramname ();
+ baseName = Py_GetProgramName ();
className = "Tk";
if (!PyArg_ParseTuple (args, "|zssi",