Lines Matching defs:interp
302 Tcl_Interp *interp;
321 #define Tkapp_Interp(v) (((TkappObject *) (v))->interp)
525 Tcl_AppInit(Tcl_Interp *interp)
529 if (Tcl_Init(interp) == TCL_ERROR) {
530 PySys_WriteStderr("Tcl_Init error: %s\n", Tcl_GetStringResult(interp));
534 _tkinter_skip_tk_init = Tcl_GetVar(interp,
548 if (Tk_Init(interp) == TCL_ERROR) {
552 PySys_WriteStderr("Tk_Init error: %s\n", Tcl_GetStringResult(interp));
582 v->interp = Tcl_CreateInterp();
584 v->threaded = Tcl_GetVar2Ex(v->interp, "tcl_platform", "threaded",
615 Tcl_DeleteCommand(v->interp, "exit");
618 Tcl_SetVar2(v->interp, "env", "DISPLAY",
622 Tcl_SetVar(v->interp, "tcl_interactive", "1", TCL_GLOBAL_ONLY);
624 Tcl_SetVar(v->interp, "tcl_interactive", "0", TCL_GLOBAL_ONLY);
637 Tcl_SetVar(v->interp, "argv0", argv0, TCL_GLOBAL_ONLY);
641 Tcl_SetVar(v->interp,
646 Tcl_SetVar(v->interp,
678 Tcl_SetVar(v->interp, "argv", args, TCL_GLOBAL_ONLY);
699 Tcl_SetVar(v->interp,
709 if (Tcl_AppInit(v->interp) != TCL_OK) {
714 _tkinter_tk_failed = Tcl_GetVar(v->interp,
1140 Tcl_Interp *interp = Tkapp_Interp(tkapp);
1163 if (Tcl_GetLongFromObj(interp, value, &longValue) == TCL_OK)
1174 Tcl_ResetResult(interp);
1191 status = Tcl_ListObjLength(interp, value, &size);
1198 status = Tcl_ListObjIndex(interp, value, i, &tcl_elem);
1325 return unicodeFromTclObj(Tcl_GetObjResult(self->interp));
1335 Tcl_Obj *value = Tcl_GetObjResult(self->interp);
1370 i = Tcl_EvalObjv(e->self->interp, objc, objv, e->flags);
1462 i = Tcl_EvalObjv(self->interp, objc, objv, flags);
2217 PythonCmd_Error(Tcl_Interp *interp)
2229 PythonCmd(ClientData clientData, Tcl_Interp *interp,
2241 return PythonCmd_Error(interp);
2247 return PythonCmd_Error(interp);
2256 return PythonCmd_Error(interp);
2261 return PythonCmd_Error(interp);
2263 Tcl_SetObjResult(interp, obj_res);
2291 Tcl_Interp* interp;
2304 ev->interp, ev->name, PythonCmd,
2307 *ev->status = Tcl_DeleteCommand(ev->interp, ev->name);
2357 ev->interp = self->interp;
2410 ev->interp = self->interp;
2422 err = Tcl_DeleteCommand(self->interp, name);
2821 Tcl_Interp *interp = Tkapp_Interp(self);
2854 if (Tk_Init(interp) == TCL_ERROR) {