Cross Reference: /ast/src/lib/libtk/generic/tkConsole.c

Lines Matching refs:consoleInterp
25     Tcl_Interp *consoleInterp;	/* Interpreter for the console. */
145     Tcl_Interp *consoleInterp;
154     consoleInterp = Tcl_CreateInterp();
155     if (consoleInterp == NULL) {
163     if (Tcl_Init(consoleInterp) != TCL_OK) {
166     if (Tk_Init(consoleInterp) != TCL_OK) {
176     info->consoleInterp = consoleInterp;
179     Tcl_CreateCommand(consoleInterp, "interp", InterpreterCmd,
185     Tcl_Preserve((ClientData) consoleInterp);
186     if (Tcl_Eval(consoleInterp, initCmd) == TCL_ERROR) {
188 	printf("Eval error: %s", consoleInterp->result);
190     Tcl_Release((ClientData) consoleInterp);
194     if (consoleInterp != NULL) {
195     	Tcl_DeleteInterp(consoleInterp);
411     Tcl_Interp *consoleInterp;
422     consoleInterp = info->consoleInterp;
423     Tcl_Preserve((ClientData) consoleInterp);
432 	Tcl_Eval(consoleInterp, dString.string);
435 	Tcl_Eval(info->consoleInterp, "wm withdraw .");
437 	Tcl_Eval(info->consoleInterp, "wm deiconify .");
439 	Tcl_Eval(info->consoleInterp, argv[2]);
446     Tcl_Release((ClientData) consoleInterp);
533     Tcl_DeleteInterp(info->consoleInterp);
534     info->consoleInterp = NULL;
563     Tcl_Interp *consoleInterp;
566         consoleInterp = info->consoleInterp;
567         Tcl_Preserve((ClientData) consoleInterp);
568 	Tcl_Eval(consoleInterp, "tkConsoleExit");
569         Tcl_Release((ClientData) consoleInterp);
604     Tcl_Interp *consoleInterp;
630     consoleInterp = info->consoleInterp;
631     Tcl_Preserve((ClientData) consoleInterp);
632     Tcl_Eval(consoleInterp, command.string);
633     Tcl_Release((ClientData) consoleInterp);