Diff

Differences From Artifact [50169ff8c3]:

To Artifact [0cfdc14cf7]:


    57     57   #if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 85
    58     58   #  define KIT_INCLUDES_PWB 1
    59     59   #endif
    60     60   #if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 86
    61     61   #  define KIT_INCLUDES_ZLIB 1
    62     62   #endif
    63     63   
    64         -#ifdef KIT_INCLUDES_ITCL
    65         -Tcl_AppInitProc	Itcl_Init;
    66         -#endif
           64  +#include "kitInit-libs.h"
           65  +
    67     66   #ifdef KIT_INCLUDES_MK4TCL
    68     67   Tcl_AppInitProc	Mk4tcl_Init;
    69     68   #endif
    70     69   Tcl_AppInitProc Vfs_Init, Rechan_Init;
    71     70   #ifdef KIT_INCLUDES_PWB
    72     71   Tcl_AppInitProc	Pwb_Init;
    73     72   #endif
................................................................................
   337    336   		return;
   338    337   	}
   339    338   
   340    339   	return;
   341    340   }
   342    341   
   343    342   static void _Tclkit_Generic_Init(void) {
   344         -#ifdef KIT_INCLUDES_ITCL
   345         -	Tcl_StaticPackage(0, "Itcl", Itcl_Init, NULL);
   346         -#endif 
   347    343   #ifdef KIT_INCLUDES_MK4TCL
   348    344   	Tcl_StaticPackage(0, "Mk4tcl", Mk4tcl_Init, NULL);
   349    345   #endif
   350    346   #ifdef KIT_INCLUDES_PWB
   351    347   	Tcl_StaticPackage(0, "pwb", Pwb_Init, NULL);
   352    348   #endif 
   353    349   	Tcl_StaticPackage(0, "rechan", Rechan_Init, NULL);
................................................................................
   364    360   #ifdef _WIN32
   365    361   	Tcl_StaticPackage(0, "dde", Dde_Init, NULL);
   366    362   	Tcl_StaticPackage(0, "registry", Registry_Init, NULL);
   367    363   #endif
   368    364   #ifdef KIT_INCLUDES_TK
   369    365   	Tcl_StaticPackage(0, "Tk", Tk_Init, Tk_SafeInit);
   370    366   #endif
          367  +
          368  +	_Tclkit_GenericLib_Init();
   371    369   
   372    370   	TclSetPreInitScript(preInitCmd);
   373    371   
   374    372   	return;
   375    373   }
   376    374   
   377    375   static void _Tclkit_Interp_Init(Tcl_Interp *interp) {