From: Jack Jansen <jack.jansen@cwi.nl>
Date: Tue, 14 Nov 1995 10:34:45 +0000 (+0000)
Subject: Initialize GUSI on the mac.
X-Git-Tag: v1.4b1~480
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=40b546d40ebacdc984fa0f8cfd061854f895ccc7;p=thirdparty%2FPython%2Fcpython.git

Initialize GUSI on the mac.
---

diff --git a/Modules/_tkinter.c b/Modules/_tkinter.c
index 94bd7295440e..0108795e6c93 100644
--- a/Modules/_tkinter.c
+++ b/Modules/_tkinter.c
@@ -13,6 +13,11 @@ static FSSpec library_fss;
 
 #ifdef MAC_TCL
 #define WITH_APPINIT
+#ifdef __MWERKS__
+void		GUSISetup (void (*socketfamily)());
+void		GUSIwithInternetSockets (void);
+void		GUSIwithSIOUXSockets (void);
+#endif
 #endif
 
 #define PyInit__tkinter init_tkinter
@@ -1271,6 +1276,9 @@ PyInit__tkinter ()
       if (Py_AtExit (Tkinter_Cleanup) != 0)
 	fprintf(stderr,
 		"Tkinter: warning: cleanup procedure not registered\n");
+#ifdef __MWERKS__
+	  PyTk_InitGUSI();
+#endif
     }
 
   if (PyErr_Occurred ())
@@ -1295,6 +1303,19 @@ panic(char * format, ...)
 
     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