Subversion Repositories or1k_old

/*
 * eixInit41.c --
 *
 *	Initializes embedded Tix for Tix version 4.1.
 *
 */
 
#include <tixPort.h>
#include <tixInt.h>
 
#include "tixSamLib.c"
 
int		SamTix_Init _ANSI_ARGS_((Tcl_Interp *interp));
 
int
Tixsam_Init(interp)
    Tcl_Interp *interp;		/* Interpreter to initialize. */
{
    Tcl_Interp * Et_Interp = interp;
 
    if (TixInitSam(interp) != TCL_OK ){
	return TCL_ERROR;
    }
    if (LoadScripts(interp) != TCL_OK ){
	return TCL_ERROR;
    }
    if (Tcl_GlobalEval(interp, "__tixInit") != TCL_OK) {
	return TCL_ERROR;
    }
 
    return TCL_OK;
}
 
int
Tixsam_SafeInit(interp)
    Tcl_Interp *interp;		/* Interpreter to initialize. */
{
    return Tixsam_Init(interp);
}