1berry/cpython
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Initialize GUSI on the mac.

Browse Source
This commit is contained in:
Jack Jansen 1995-11-14 10:34:45 +00:00
parent 8a5d0d4980
commit 40b546d40e
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Modules/_tkinter.c
View File

@ -13,6 +13,11 @@ static FSSpec library_fss;
#ifdef MAC_TCL #ifdef MAC_TCL
#define WITH_APPINIT #define WITH_APPINIT
#ifdef __MWERKS__
void GUSISetup (void (*socketfamily)());
void GUSIwithInternetSockets (void);
void GUSIwithSIOUXSockets (void);
#endif
#endif #endif
#define PyInit__tkinter init_tkinter #define PyInit__tkinter init_tkinter
@ -1271,6 +1276,9 @@ PyInit__tkinter ()
if (Py_AtExit (Tkinter_Cleanup) != 0) if (Py_AtExit (Tkinter_Cleanup) != 0)
fprintf(stderr, fprintf(stderr,
"Tkinter: warning: cleanup procedure not registered\n"); "Tkinter: warning: cleanup procedure not registered\n");
#ifdef __MWERKS__
PyTk_InitGUSI();
#endif
} }
if (PyErr_Occurred ()) if (PyErr_Occurred ())
@ -1295,6 +1303,19 @@ panic(char * format, ...)
Py_FatalError("Tcl/Tk panic"); Py_FatalError("Tcl/Tk panic");
} }
#ifdef __MWERKS__
void
PyTk_InitGUSI()
{
static int is_inited;
if ( is_inited ) return;
GUSISetup(GUSIwithInternetSockets);
GUSISetup(GUSIwithSIOUXSockets);
is_inited = 1;
}
#endif /* __MWERKS__ */
/* /*
** If this module is dynamically loaded the following routine should ** If this module is dynamically loaded the following routine should