DELETED interp_violation.out
Index: interp_violation.out
==================================================================
--- interp_violation.out
+++ /dev/null
@@ -1,27 +0,0 @@
-tkCmds.c:	    (char *) NULL) == TCL_OK  && interp->result[0] != '\0') {
-tkCmds.c:	if (interp->result[1] == '\0') {
-tkCmds.c:	    if (interp->result[0] == '1') {
-tkCmds.c:	    } else if (interp->result[0] == '0') {
-tkCmds.c:	if (interp->result[0] == 'd'
-tkCmds.c:		&& strcmp(interp->result, "disabled") == 0) goto nofocus;
-tkCmds.c:    if (strstr(interp->result, "Key"))  goto focus;
-tkCmds.c:    if (strstr(interp->result, "Focus"))  goto focus;
-tkCmds.c:    if (strstr(interp->result, "Key"))  goto focus;
-tkCmds.c:    if (strstr(interp->result, "Focus"))  goto focus;
-tkEvent.c:    char *errorMsg;		/* The error message (interp->result when
-tkEvent.c:    errPtr->errorMsg = (char *) ckalloc((unsigned) (strlen(interp->result)
-tkEvent.c:    strcpy(errPtr->errorMsg, interp->result);
-tkEvent.c:	    if (strcmp(interp->result, "\"tkerror\" is an invalid command name or ambiguous abbreviation") == 0) {
-tkEvent.c:		fprintf(stderr, "    Error in tkerror: %s\n", interp->result);
-tkFrame.c:		    placeArgv[1], interp->result);
-tkMain.c:	fprintf(stderr, "%s\n", interp->result);
-tkMain.c:	fprintf(stderr, "%s\n", interp->result);
-tkMain.c:	    fprintf(stderr, "%s\n", interp->result);
-tkMain.c:            Tcl_Write(errChannel, interp->result, -1);
-tkMain.c:                    Tcl_Write(errChannel, interp->result, -1);
-tkMain.c:                            Tcl_Write(errChannel, interp->result, -1);
-tkMain.c:    if (*interp->result != 0) {
-tkMain.c:	    puts(interp->result);
-tkMain.c:	    fprintf(stderr, "%s\n", interp->result);
-tkText.c:	TkTextPrintIndex(&index1, interp->result);
-tkText.c:	    TkTextPrintIndex(&index, interp->result);

Index: tkCmds.c
==================================================================
--- tkCmds.c
+++ tkCmds.c
@@ -1330,20 +1330,20 @@
     /*
      * Check widget's -takefocus option.
      */
 
     if (Tcl_VarEval(interp, Tk_PathName(winPtr), " cget -takefocus",
-	    (char *) NULL) == TCL_OK  && interp->result[0] != '\0') {
+	    (char *) NULL) == TCL_OK  && Tcl_GetStringResult(interp)[0] != '\0') {
 	
 	/*
 	 * Try to interpret option value as simple 1 or 0.
 	 */
 
-	if (interp->result[1] == '\0') {
-	    if (interp->result[0] == '1') {
+	if (Tcl_GetStringResult(interp)[1] == '\0') {
+	    if (Tcl_GetStringResult(interp)[0] == '1') {
 		goto focus;
-	    } else if (interp->result[0] == '0') {
+	    } else if (Tcl_GetStringResult(interp)[0] == '0') {
 		goto nofocus;
 	    }
 	}
 	{
 	
@@ -1377,28 +1377,28 @@
      * don't focus.
      */
 
     if (Tcl_VarEval(interp, Tk_PathName(winPtr), " cget -state",
 	    (char *) NULL) == TCL_OK) {
-	if (interp->result[0] == 'd'
-		&& strcmp(interp->result, "disabled") == 0) goto nofocus;
+	if (Tcl_GetStringResult(interp)[0] == 'd'
+		&& strcmp(Tcl_GetStringResult(interp), "disabled") == 0) goto nofocus;
     }
 
     /*
      * Check if widget has any Keyboard related bindings (check
      * individual widget tag and its class tag).
      */
 
     if (Tcl_VarEval(interp, "bind ", Tk_PathName(winPtr), (char *) NULL)
 	    != TCL_OK)  return TCL_ERROR;
-    if (strstr(interp->result, "Key"))  goto focus;
-    if (strstr(interp->result, "Focus"))  goto focus;
+    if (strstr(Tcl_GetStringResult(interp), "Key"))  goto focus;
+    if (strstr(Tcl_GetStringResult(interp), "Focus"))  goto focus;
 
     if (Tcl_VarEval(interp, "bind ", Tk_Class(winPtr), (char *) NULL)
 	    != TCL_OK)  return TCL_ERROR;
-    if (strstr(interp->result, "Key"))  goto focus;
-    if (strstr(interp->result, "Focus"))  goto focus;
+    if (strstr(Tcl_GetStringResult(interp), "Key"))  goto focus;
+    if (strstr(Tcl_GetStringResult(interp), "Focus"))  goto focus;
 
 nofocus:
     *flagPtr = 0;
     return TCL_OK;
 

Index: tkFrame.c
==================================================================
--- tkFrame.c
+++ tkFrame.c
@@ -297,11 +297,11 @@
 	placeArgv[7] = "center";
 	placeArgv[8] = NULL;
 	if (Tk_PlaceCmd((ClientData) framePtr->tkwin, interp,
 		8, placeArgv) != TCL_OK) {
 	    panic("place failed for toplevel: %s: %s",
-		    placeArgv[1], interp->result);
+		    placeArgv[1], Tcl_GetStringResult(interp));
 	}
     } else {
 	tkwin->fillStyle = CTK_INVISIBLE_STYLE;
     }
     Tcl_SetResult(interp,Tk_PathName(framePtr->tkwin),TCL_VOLATILE);

Index: tkMain.c
==================================================================
--- tkMain.c
+++ tkMain.c
@@ -151,11 +151,11 @@
 	argc--;
 	argv++;
     }
     if (Tk_ParseArgv(interp, (Tk_Window) NULL, &argc, argv, argTable, 0)
 	    != TCL_OK) {
-	fprintf(stderr, "%s\n", interp->result);
+	fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
 	exit(1);
     }
     if (name == NULL) {
 	if (fileName != NULL) {
 	    p = fileName;
@@ -214,11 +214,11 @@
     strcpy(class, name);
     class[0] = toupper((unsigned char) class[0]);
     mainWindow = Tk_CreateMainWindow(interp, display, name, class);
     ckfree(class);
     if (mainWindow == NULL) {
-	fprintf(stderr, "%s\n", interp->result);
+	fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
 	exit(1);
     }
 
     /*
      * Set the "tcl_interactive" variable.
@@ -235,11 +235,11 @@
 
     if (geometry != NULL) {
 	Tcl_SetVar(interp, "geometry", geometry, TCL_GLOBAL_ONLY);
 	code = Tcl_VarEval(interp, "wm geometry . ", geometry, (char *) NULL);
 	if (code != TCL_OK) {
-	    fprintf(stderr, "%s\n", interp->result);
+	    fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
 	}
     }
 
     /*
      * Invoke application-specific initialization.
@@ -248,11 +248,11 @@
     if ((*appInitProc)(interp) != TCL_OK) {
        errChannel = Tcl_GetStdChannel(TCL_STDERR);
        if (errChannel) {
             Tcl_Write(errChannel,
                    "application-specific initialization failed: ", -1);
-            Tcl_Write(errChannel, interp->result, -1);
+            Tcl_Write(errChannel, Tcl_GetStringResult(interp), -1);
             Tcl_Write(errChannel, "\n", 1);
         }
 
 	goto error;
     }
@@ -282,11 +282,11 @@
 
             fullName = Tcl_TranslateFileName(interp, fileName, &buffer);
 	    if (fullName == NULL) {
                errChannel = Tcl_GetStdChannel(TCL_STDERR);
                if (errChannel) {
-                    Tcl_Write(errChannel, interp->result, -1);
+                    Tcl_Write(errChannel, Tcl_GetStringResult(interp), -1);
                     Tcl_Write(errChannel, "\n", 1);
                 }
 	    } else {
 
                 /*
@@ -297,11 +297,11 @@
                 if (chan != (Tcl_Channel) NULL) {
                     Tcl_Close(NULL, chan);
                     if (Tcl_EvalFile(interp, fullName) != TCL_OK) {
                        errChannel = Tcl_GetStdChannel(TCL_STDERR);
                        if (errChannel) {
-                            Tcl_Write(errChannel, interp->result, -1);
+                            Tcl_Write(errChannel, Tcl_GetStringResult(interp), -1);
                             Tcl_Write(errChannel, "\n", 1);
                         }
                     }
                 }
 	    }
@@ -437,20 +437,20 @@
 
     Tcl_CreateFileHandler(chan, 0, StdinProc, (ClientData) chan);
     code = Tcl_RecordAndEval(interp, cmd, TCL_EVAL_GLOBAL);
     Tcl_CreateChannelHandler(chan, TCL_READABLE, StdinProc, (ClientData) chan);
     Tcl_DStringFree(&command);
-    if (*interp->result != 0) {
+    if (*(Tcl_GetStringResult(interp)) != 0) {
 	if ((code != TCL_OK) || (tty)) {
 	    /*
 	     * The statement below used to call "printf", but that resulted
 	     * in core dumps under Solaris 2.3 if the result was very long.
 	     *
 	     * NOTE: This probably will not work under Windows either.
 	     */
 
-	    puts(interp->result);
+	    puts(Tcl_GetStringResult(interp));
 	}
     }
 
     /*
      * Output a prompt.
@@ -501,11 +501,11 @@
     } else {
 	code = Tcl_Eval(interp, promptCmd);
 	if (code != TCL_OK) {
 	    Tcl_AddErrorInfo(interp,
 		    "\n    (script that generates prompt)");
-	    fprintf(stderr, "%s\n", interp->result);
+	    fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
 	    goto defaultPrompt;
 	}
     }
     fflush(stdout);
 }

Index: tkText.c
==================================================================
--- tkText.c
+++ tkText.c
@@ -457,11 +457,11 @@
 	}
 	if (TkTextGetIndex(interp, textPtr, argv[2], &index1) != TCL_OK) {
 	    result = TCL_ERROR;
 	    goto done;
 	}
-	TkTextPrintIndex(&index1, interp->result);
+	TkTextPrintIndex(&index1, Tcl_GetStringResult(interp));
     } else if ((c == 'i') && (strncmp(argv[1], "insert", length) == 0)
 	    && (length >= 3)) {
 	int i, j, numTags;
 	char **tagNames;
 	TkTextTag **oldTagArrayPtr;
@@ -1342,11 +1342,11 @@
 			== NULL) {
 		    code = TCL_ERROR;
 		    goto done;
 		}
 	    }
-	    TkTextPrintIndex(&index, interp->result);
+	    TkTextPrintIndex(&index, Tcl_GetStringResult(interp));
 	    goto done;
 	}
 
 	/*
 	 * Go to the next (or previous) line;