Subversion Repositories or1k

/*

 * 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);

}