Lines Matching refs:interp
72 * interp->result if an error occurs.
77 Tcl_AppInit (Tcl_Interp *interp)
80 Tcl_AppInit (interp)
81 Tcl_Interp *interp;
84 if (Tcl_Init (interp) == TCL_ERROR) {
88 if (Tclx_Init(interp) == TCL_ERROR) {
91 Tcl_StaticPackage(interp, "Tclx", Tclx_Init, Tclx_SafeInit);
93 if (Tk_Init(interp) == TCL_ERROR) {
96 Tcl_StaticPackage(interp, "Tk", Tk_Init, (Tcl_PackageInitProc *) NULL);
98 if (Tkx_Init(interp) == TCL_ERROR) {
101 Tcl_StaticPackage(interp, "Tkx", Tkx_Init, (Tcl_PackageInitProc *) NULL);
104 if (Ldaptcl_Init(interp) == TCL_ERROR) {
107 Tcl_StaticPackage(interp, "Ldaptcl", Ldaptcl_Init,
121 Tcl_SetVar(interp, "tcl_rcFileName", "~/.wishxrc", TCL_GLOBAL_ONLY);