Yes, Virginia, Tix does have a Tix_SafeInit() function.

diff --git a/Modules/tkappinit.c b/Modules/tkappinit.c
index 56556c706a0b2527c1869c0f966ffcff692390df..392269b18c297f409de3c414b8b420b8f382e77c 100644 (file)
--- a/Modules/tkappinit.c
+++ b/Modules/tkappinit.c
@@ -58,11 +58,11 @@ Tcl_AppInit(interp)
 #endif
 
 #ifdef WITH_TIX
-       {
-               extern int Tix_Init(Tcl_Interp *);
-               /* XXX Is there no Tix_SafeInit? */
-               Tcl_StaticPackage(NULL, "Tix", Tix_Init, NULL);
-       }
+        {
+                extern int Tix_Init(Tcl_Interp *interp);
+                extern int Tix_SafeInit(Tcl_Interp *interp);
+                Tcl_StaticPackage(NULL, "Tix", Tix_Init, Tix_SafeInit);
+        }
 #endif
 
 #ifdef WITH_BLT