@@ -59,13 +59,12 @@ #endif #if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 86 # define KIT_INCLUDES_ZLIB 1 #endif -#ifdef KIT_INCLUDES_ITCL -Tcl_AppInitProc Itcl_Init; -#endif +#include "kitInit-libs.h" + #ifdef KIT_INCLUDES_MK4TCL Tcl_AppInitProc Mk4tcl_Init; #endif Tcl_AppInitProc Vfs_Init, Rechan_Init; #ifdef KIT_INCLUDES_PWB @@ -339,13 +338,10 @@ return; } static void _Tclkit_Generic_Init(void) { -#ifdef KIT_INCLUDES_ITCL - Tcl_StaticPackage(0, "Itcl", Itcl_Init, NULL); -#endif #ifdef KIT_INCLUDES_MK4TCL Tcl_StaticPackage(0, "Mk4tcl", Mk4tcl_Init, NULL); #endif #ifdef KIT_INCLUDES_PWB Tcl_StaticPackage(0, "pwb", Pwb_Init, NULL); @@ -366,10 +362,12 @@ Tcl_StaticPackage(0, "registry", Registry_Init, NULL); #endif #ifdef KIT_INCLUDES_TK Tcl_StaticPackage(0, "Tk", Tk_Init, Tk_SafeInit); #endif + + _Tclkit_GenericLib_Init(); TclSetPreInitScript(preInitCmd); return; }