Revert [ac229dabaa]. There is a reason the Tcl_GetIndexFromObj wrapper

exists and is used.

FossilOrigin-Name: 6c26562fe3f83eea390818ed36601930e1cbe0d9

13 files changed, 89 insertions, 90 deletions

diff --git a/generic/tkCanvas.c b/generic/tkCanvas.c
index 05bc623..23d8e04 100644
--- a/generic/tkCanvas.c
+++ b/generic/tkCanvas.c
@@ -828,8 +828,8 @@ CanvasWidgetCmd(
 	Tcl_WrongNumArgs(interp, 1, objv, "option ?arg ...?");
 	return TCL_ERROR;
     }
-    if (Tcl_GetIndexFromObjStruct(interp, objv[1], optionStrings,
-	    sizeof(char *), "option", 0, &index) != TCL_OK) {
+    if (Tcl_GetIndexFromObj(interp, objv[1], optionStrings, "option", 0,
+	    &index) != TCL_OK) {
 	return TCL_ERROR;
     }
     Tcl_Preserve(canvasPtr);
@@ -1887,8 +1887,8 @@ CanvasWidgetCmd(
 	if (objc < 5) {
 	    Tcl_WrongNumArgs(interp, 2, objv, "mark|dragto x y ?dragGain?");
 	    result = TCL_ERROR;
-	} else if (Tcl_GetIndexFromObjStruct(interp, objv[2], optionStrings,
-		sizeof(char *), "scan option", 0, &index) != TCL_OK) {
+	} else if (Tcl_GetIndexFromObj(interp, objv[2], optionStrings,
+		"scan option", 0, &index) != TCL_OK) {
 	    result = TCL_ERROR;
 	} else if ((objc != 5) && (objc != 5+index)) {
 	    Tcl_WrongNumArgs(interp, 3, objv, index?"x y ?gain?":"x y");
@@ -1959,8 +1959,8 @@ CanvasWidgetCmd(
 		goto done;
 	    }
 	}
-	if (Tcl_GetIndexFromObjStruct(interp, objv[2], optionStrings,
-		sizeof(char *), "select option", 0, &optionindex) != TCL_OK) {
+	if (Tcl_GetIndexFromObj(interp, objv[2], optionStrings,
+		"select option", 0, &optionindex) != TCL_OK) {
 	    result = TCL_ERROR;
 	    goto done;
 	}
@@ -4301,8 +4301,8 @@ FindItems(
     } else {
 	uid = NULL;
     }
-    if (Tcl_GetIndexFromObjStruct(interp, objv[first], optionStrings,
-	    sizeof(char *), "search command", 0, &index) != TCL_OK) {
+    if (Tcl_GetIndexFromObj(interp, objv[first], optionStrings,
+	    "search command", 0, &index) != TCL_OK) {
 	return TCL_ERROR;
     }
     switch ((enum options) index) {
diff --git a/generic/tkClipboard.c b/generic/tkClipboard.c
index a6fa234..b902625 100644
--- a/generic/tkClipboard.c
+++ b/generic/tkClipboard.c
@@ -434,8 +434,8 @@ Tk_ClipboardObjCmd(
 	return TCL_ERROR;
     }
 
-    if (Tcl_GetIndexFromObjStruct(interp, objv[1], optionStrings,
-	    sizeof(char *), "option", 0, &index) != TCL_OK) {
+    if (Tcl_GetIndexFromObj(interp, objv[1], optionStrings, "option", 0,
+	    &index) != TCL_OK) {
 	return TCL_ERROR;
     }
 
@@ -464,8 +464,8 @@ Tk_ClipboardObjCmd(
 		i++;
 		break;
 	    }
-	    if (Tcl_GetIndexFromObjStruct(interp, objv[i], appendOptionStrings,
-		    sizeof(char *), "option", 0, &subIndex) != TCL_OK) {
+	    if (Tcl_GetIndexFromObj(interp, objv[i], appendOptionStrings,
+		    "option", 0, &subIndex) != TCL_OK) {
 		return TCL_ERROR;
 	    }
 
@@ -527,8 +527,8 @@ Tk_ClipboardObjCmd(
 	}
 
 	if (objc == 4) {
-	    if (Tcl_GetIndexFromObjStruct(interp, objv[2], clearOptionStrings,
-		    sizeof(char *), "option", 0, &subIndex) != TCL_OK) {
+	    if (Tcl_GetIndexFromObj(interp, objv[2], clearOptionStrings,
+		    "option", 0, &subIndex) != TCL_OK) {
 		return TCL_ERROR;
 	    }
 	    if ((enum clearOptions) subIndex == CLEAR_DISPLAYOF) {
@@ -560,8 +560,8 @@ Tk_ClipboardObjCmd(
 	    if (string[0] != '-') {
 		break;
 	    }
-	    if (Tcl_GetIndexFromObjStruct(interp, objv[i], getOptionStrings,
-		    sizeof(char *), "option", 0, &subIndex) != TCL_OK) {
+	    if (Tcl_GetIndexFromObj(interp, objv[i], getOptionStrings,
+		    "option", 0, &subIndex) != TCL_OK) {
 		return TCL_ERROR;
 	    }
 	    i++;
diff --git a/generic/tkCmds.c b/generic/tkCmds.c
index f7fa27c..4933d34 100644
--- a/generic/tkCmds.c
+++ b/generic/tkCmds.c
@@ -760,8 +760,8 @@ CaretCmd(
 	 * Return the current value of the selected option
 	 */
 
-	if (Tcl_GetIndexFromObjStruct(interp, objv[2], caretStrings,
-		sizeof(char *), "caret option", 0, &index) != TCL_OK) {
+	if (Tcl_GetIndexFromObj(interp, objv[2], caretStrings,
+		"caret option", 0, &index) != TCL_OK) {
 	    return TCL_ERROR;
 	}
 	if (index == TK_CARET_X) {
@@ -776,8 +776,8 @@ CaretCmd(
 	int i, value, x = 0, y = 0, height = -1;
 
 	for (i = 2; i < objc; i += 2) {
-	    if ((Tcl_GetIndexFromObjStruct(interp, objv[i], caretStrings,
-		    sizeof(char *), "caret option", 0, &index) != TCL_OK) ||
+	    if ((Tcl_GetIndexFromObj(interp, objv[i], caretStrings,
+		    "caret option", 0, &index) != TCL_OK) ||
 		    Tcl_GetIntFromObj(interp,objv[i+1],&value) != TCL_OK) {
 		return TCL_ERROR;
 	    }
@@ -1011,8 +1011,8 @@ Tk_TkwaitObjCmd(
 	return TCL_ERROR;
     }
 
-    if (Tcl_GetIndexFromObjStruct(interp, objv[1], optionStrings,
-	    sizeof(char *), "option", 0, &index) != TCL_OK) {
+    if (Tcl_GetIndexFromObj(interp, objv[1], optionStrings, "option", 0,
+	    &index) != TCL_OK) {
 	return TCL_ERROR;
     }
 
@@ -1192,8 +1192,8 @@ Tk_UpdateObjCmd(
     if (objc == 1) {
 	flags = TCL_DONT_WAIT;
     } else if (objc == 2) {
-	if (Tcl_GetIndexFromObjStruct(interp, objv[1], updateOptions,
-		sizeof(char *), "option", 0, &index) != TCL_OK) {
+	if (Tcl_GetIndexFromObj(interp, objv[1], updateOptions, "option", 0,
+		&index) != TCL_OK) {
 	    return TCL_ERROR;
 	}
 	flags = TCL_IDLE_EVENTS;
@@ -1339,8 +1339,8 @@ Tk_WinfoObjCmd(
 	Tcl_WrongNumArgs(interp, 1, objv, "option ?arg?");
 	return TCL_ERROR;
     }
-    if (Tcl_GetIndexFromObjStruct(interp, objv[1], optionStrings,
-	    sizeof(char *), "option", 0, &index) != TCL_OK) {
+    if (Tcl_GetIndexFromObj(interp, objv[1], optionStrings, "option", 0,
+	    &index) != TCL_OK) {
 	return TCL_ERROR;
     }
 
@@ -1863,8 +1863,8 @@ Tk_WmObjCmd(
 	Tcl_WrongNumArgs(interp, 1, objv, "option window ?arg?");
 	return TCL_ERROR;
     }
-    if (Tcl_GetIndexFromObjStruct(interp, objv[1], optionStrings,
-	    sizeof(char *), "option", 0, &index) != TCL_OK) {
+    if (Tcl_GetIndexFromObj(interp, objv[1], optionStrings, "option", 0,
+	    &index) != TCL_OK) {
 	return TCL_ERROR;
     }
 
diff --git a/generic/tkEntry.c b/generic/tkEntry.c
index 7ee6ad2..eb94cbd 100644
--- a/generic/tkEntry.c
+++ b/generic/tkEntry.c
@@ -602,8 +602,8 @@ EntryWidgetObjCmd(
      * valid command names.
      */
 
-    result = Tcl_GetIndexFromObjStruct(interp, objv[1], entryCmdNames,
-	    sizeof(char *), "option", 0, &cmdIndex);
+    result = Tcl_GetIndexFromObj(interp, objv[1], entryCmdNames, "option", 0,
+	    &cmdIndex);
     if (result != TCL_OK) {
 	return result;
     }
@@ -782,8 +782,8 @@ EntryWidgetObjCmd(
 	 * "selCmdNames" defined above.
 	 */
 
-	result = Tcl_GetIndexFromObjStruct(interp, objv[2], selCmdNames,
-		sizeof(char *), "selection option", 0, &selIndex);
+	result = Tcl_GetIndexFromObj(interp, objv[2], selCmdNames,
+		"selection option", 0, &selIndex);
 	if (result != TCL_OK) {
 	    goto error;
 	}
@@ -3656,8 +3656,8 @@ SpinboxWidgetObjCmd(
      * valid command names.
      */
 
-    result = Tcl_GetIndexFromObjStruct(interp, objv[1], sbCmdNames,
-	    sizeof(char *), "option", 0, &cmdIndex);
+    result = Tcl_GetIndexFromObj(interp, objv[1], sbCmdNames,
+	    "option", 0, &cmdIndex);
     if (result != TCL_OK) {
 	return result;
     }
@@ -3817,8 +3817,8 @@ SpinboxWidgetObjCmd(
 	    Tcl_WrongNumArgs(interp, 2, objv, "elemName");
 	    goto error;
 	}
-	result = Tcl_GetIndexFromObjStruct(interp, objv[2], selElementNames,
-		sizeof(char *), "element", 0, &cmdIndex);
+	result = Tcl_GetIndexFromObj(interp, objv[2],
+		selElementNames, "element", 0, &cmdIndex);
 	if (result != TCL_OK) {
 	    goto error;
 	}
@@ -3873,8 +3873,8 @@ SpinboxWidgetObjCmd(
 	 * "sbSelCmdNames" defined above.
 	 */
 
-	result = Tcl_GetIndexFromObjStruct(interp, objv[2], sbSelCmdNames,
-		sizeof(char *), "selection option", 0, &selIndex);
+	result = Tcl_GetIndexFromObj(interp, objv[2], sbSelCmdNames,
+		"selection option", 0, &selIndex);
 	if (result != TCL_OK) {
 	    goto error;
 	}
@@ -4003,8 +4003,8 @@ SpinboxWidgetObjCmd(
 	    } else {
 		int lastElement = sbPtr->selElement;
 
-		result = Tcl_GetIndexFromObjStruct(interp, objv[3], selElementNames,
-			sizeof(char *), "selection element", 0, &(sbPtr->selElement));
+		result = Tcl_GetIndexFromObj(interp, objv[3], selElementNames,
+			"selection element", 0, &(sbPtr->selElement));
 		if (result != TCL_OK) {
 		    goto error;
 		}
diff --git a/generic/tkEvent.c b/generic/tkEvent.c
index ce0ba23..463379a 100644
--- a/generic/tkEvent.c
+++ b/generic/tkEvent.c
@@ -356,7 +356,7 @@ CreateXIC(
 	/* XCreateIC failed. */
 	return;
     }
-
+    
     /*
      * Adjust the window's event mask if the IM requires it.
      */
diff --git a/generic/tkFont.c b/generic/tkFont.c
index ed9b813..4485df8 100644
--- a/generic/tkFont.c
+++ b/generic/tkFont.c
@@ -486,8 +486,8 @@ Tk_FontObjCmd(
 	Tcl_WrongNumArgs(interp, 1, objv, "option ?arg?");
 	return TCL_ERROR;
     }
-    if (Tcl_GetIndexFromObjStruct(interp, objv[1], optionStrings,
-	    sizeof(char *), "option", 0, &index) != TCL_OK) {
+    if (Tcl_GetIndexFromObj(interp, objv[1], optionStrings, "option", 0,
+	    &index) != TCL_OK) {
 	return TCL_ERROR;
     }
 
@@ -763,8 +763,8 @@ Tk_FontObjCmd(
 		    fmPtr->ascent, fmPtr->descent,
 		    fmPtr->ascent + fmPtr->descent, fmPtr->fixed));
 	} else {
-	    if (Tcl_GetIndexFromObjStruct(interp, objv[3], switches,
-		    sizeof(char *), "metric", 0, &index) != TCL_OK) {
+	    if (Tcl_GetIndexFromObj(interp, objv[3], switches, "metric", 0,
+		    &index) != TCL_OK) {
 		Tk_FreeFont(tkfont);
 		return TCL_ERROR;
 	    }
@@ -3368,8 +3368,8 @@ ConfigAttributesObj(
 	optionPtr = objv[i];
 	valuePtr = objv[i + 1];
 
-	if (Tcl_GetIndexFromObjStruct(interp, optionPtr, fontOpt,
-		sizeof(char *), "option", 1, &index) != TCL_OK) {
+	if (Tcl_GetIndexFromObj(interp, optionPtr, fontOpt, "option", 1,
+		&index) != TCL_OK) {
 	    return TCL_ERROR;
 	}
 	if ((i+2 >= objc) && (objc & 1)) {
@@ -3468,8 +3468,8 @@ GetAttributeInfoObj(
     start = 0;
     end = FONT_NUMFIELDS;
     if (objPtr != NULL) {
-	if (Tcl_GetIndexFromObjStruct(interp, objPtr, fontOpt,
-		sizeof(char *), "option", TCL_EXACT, &index) != TCL_OK) {
+	if (Tcl_GetIndexFromObj(interp, objPtr, fontOpt, "option", TCL_EXACT,
+		&index) != TCL_OK) {
 	    return TCL_ERROR;
 	}
 	start = index;
diff --git a/generic/tkGet.c b/generic/tkGet.c
index c220fdc..d58b4a5 100644
--- a/generic/tkGet.c
+++ b/generic/tkGet.c
@@ -71,8 +71,8 @@ Tk_GetAnchorFromObj(
 {
     int index, code;
 
-    code = Tcl_GetIndexFromObjStruct(interp, objPtr, anchorStrings,
-	    sizeof(char *), "anchor", 0, &index);
+    code = Tcl_GetIndexFromObj(interp, objPtr, anchorStrings, "anchor", 0,
+	    &index);
     if (code == TCL_OK) {
 	*anchorPtr = (Tk_Anchor) index;
     }
@@ -385,8 +385,8 @@ Tk_GetJustifyFromObj(
 {
     int index, code;
 
-    code = Tcl_GetIndexFromObjStruct(interp, objPtr, justifyStrings,
-	    sizeof(char *), "justification", 0, &index);
+    code = Tcl_GetIndexFromObj(interp, objPtr, justifyStrings,
+	    "justification", 0, &index);
     if (code == TCL_OK) {
 	*justifyPtr = (Tk_Justify) index;
     }
diff --git a/generic/tkGrab.c b/generic/tkGrab.c
index 8644014..2df5552 100644
--- a/generic/tkGrab.c
+++ b/generic/tkGrab.c
@@ -240,8 +240,8 @@ Tk_GrabObjCmd(
 	}
 	return Tk_Grab(interp, tkwin, 0);
     } else if (arg[0] == '-' && len > 1) {
-	if (Tcl_GetIndexFromObjStruct(interp, objv[1], flagStrings,
-		sizeof(char *), "option", 0, &index) != TCL_OK) {
+	if (Tcl_GetIndexFromObj(interp, objv[1], flagStrings, "option", 0,
+		&index) != TCL_OK) {
 	    return TCL_ERROR;
 	}
 
@@ -262,8 +262,8 @@ Tk_GrabObjCmd(
      * option it is.
      */
 
-    if (Tcl_GetIndexFromObjStruct(interp, objv[1], optionStrings,
-	    sizeof(char *), "option", 0, &index) != TCL_OK) {
+    if (Tcl_GetIndexFromObj(interp, objv[1], optionStrings, "option", 0,
+	    &index) != TCL_OK) {
 	return TCL_ERROR;
     }
 
@@ -333,8 +333,8 @@ Tk_GrabObjCmd(
 	     * consistant with the rest of Tcl.
 	     */
 
-	    if (Tcl_GetIndexFromObjStruct(interp, objv[2], flagStrings,
-		    sizeof(char *), "option", 0, &index) != TCL_OK) {
+	    if (Tcl_GetIndexFromObj(interp, objv[2], flagStrings, "option",
+		    0, &index) != TCL_OK) {
 		return TCL_ERROR;
 	    }
 	    tkwin = Tk_NameToWindow(interp, Tcl_GetString(objv[3]),
diff --git a/generic/tkImgPhoto.c b/generic/tkImgPhoto.c
index 7fd84d9..4fcc3db 100644
--- a/generic/tkImgPhoto.c
+++ b/generic/tkImgPhoto.c
@@ -420,8 +420,8 @@ ImgPhotoCmd(
 	return TCL_ERROR;
     }
 
-    if (Tcl_GetIndexFromObjStruct(interp, objv[1], photoOptions,
-	    sizeof(char *), "option", 0, &index) != TCL_OK) {
+    if (Tcl_GetIndexFromObj(interp, objv[1], photoOptions, "option", 0,
+	    &index) != TCL_OK) {
 	return TCL_ERROR;
     }
 
@@ -1145,8 +1145,8 @@ ImgPhotoCmd(
 	    Tcl_WrongNumArgs(interp, 2, objv, "option ?arg ...?");
 	    return TCL_ERROR;
 	}
-	if (Tcl_GetIndexFromObjStruct(interp, objv[2], photoTransOptions,
-		sizeof(char *) , "option", 0, &index) != TCL_OK) {
+	if (Tcl_GetIndexFromObj(interp, objv[2], photoTransOptions, "option",
+		0, &index) != TCL_OK) {
 	    return TCL_ERROR;
 	}
 
@@ -1565,8 +1565,8 @@ ParseSubcommandOptions(
 		goto oneValueRequired;
 	    }
 	    index++;
-	    if (Tcl_GetIndexFromObjStruct(interp, objv[index], compositingRules,
-		    sizeof(char *), "compositing rule", 0, &optPtr->compositingRule)
+	    if (Tcl_GetIndexFromObj(interp, objv[index], compositingRules,
+		    "compositing rule", 0, &optPtr->compositingRule)
 		    != TCL_OK) {
 		return TCL_ERROR;
 	    }
diff --git a/generic/tkListbox.c b/generic/tkListbox.c
index 77a2d34..c5460f9 100644
--- a/generic/tkListbox.c
+++ b/generic/tkListbox.c
@@ -615,8 +615,8 @@ ListboxWidgetObjCmd(
      * valid subcommand names
      */
 
-    result = Tcl_GetIndexFromObjStruct(interp, objv[1], commandNames,
-	    sizeof(char *), "option", 0, &cmdIndex);
+    result = Tcl_GetIndexFromObj(interp, objv[1], commandNames,
+	    "option", 0, &cmdIndex);
     if (result != TCL_OK) {
 	return result;
     }
@@ -969,8 +969,8 @@ ListboxWidgetObjCmd(
 	    break;
 	}
 
-	result = Tcl_GetIndexFromObjStruct(interp, objv[2], scanCommandNames,
-		sizeof(char *), "option", 0, &scanCmdIndex);
+	result = Tcl_GetIndexFromObj(interp, objv[2], scanCommandNames,
+		"option", 0, &scanCmdIndex);
 	if (result != TCL_OK) {
 	    break;
 	}
@@ -1164,8 +1164,8 @@ ListboxSelectionSubCmd(
 	    return result;
 	}
     }
-    result = Tcl_GetIndexFromObjStruct(interp, objv[2], selCommandNames,
-	    sizeof(char *), "option", 0, &selCmdIndex);
+    result = Tcl_GetIndexFromObj(interp, objv[2], selCommandNames,
+	    "option", 0, &selCmdIndex);
     if (result != TCL_OK) {
 	return result;
     }
@@ -2709,8 +2709,7 @@ GetListboxIndex(
      * First see if the index is one of the named indices.
      */
 
-    result = Tcl_GetIndexFromObjStruct(NULL, indexObj, indexNames,
-	    sizeof(char *), "", 0, &index);
+    result = Tcl_GetIndexFromObj(NULL, indexObj, indexNames, "", 0, &index);
     if (result == TCL_OK) {
 	switch (index) {
 	case INDEX_ACTIVE:
diff --git a/generic/tkPanedWindow.c b/generic/tkPanedWindow.c
index 8b242aa..733610e 100644
--- a/generic/tkPanedWindow.c
+++ b/generic/tkPanedWindow.c
@@ -540,8 +540,8 @@ PanedWindowWidgetObjCmd(
 	return TCL_ERROR;
     }
 
-    if (Tcl_GetIndexFromObjStruct(interp, objv[1], optionStrings,
-	    sizeof(char *), "command", 0, &index) != TCL_OK) {
+    if (Tcl_GetIndexFromObj(interp, objv[1], optionStrings, "command",
+	    0, &index) != TCL_OK) {
 	return TCL_ERROR;
     }
 
@@ -1084,8 +1084,8 @@ PanedWindowSashCommand(
 	return TCL_ERROR;
     }
 
-    if (Tcl_GetIndexFromObjStruct(interp, objv[2], sashOptionStrings,
-	    sizeof(char *), "option", 0, &index) != TCL_OK) {
+    if (Tcl_GetIndexFromObj(interp, objv[2], sashOptionStrings, "option", 0,
+	    &index) != TCL_OK) {
 	return TCL_ERROR;
     }
 
@@ -2778,8 +2778,8 @@ PanedWindowProxyCommand(
 	return TCL_ERROR;
     }
 
-    if (Tcl_GetIndexFromObjStruct(interp, objv[2], optionStrings,
-	    sizeof(char *), "option", 0, &index) != TCL_OK) {
+    if (Tcl_GetIndexFromObj(interp, objv[2], optionStrings, "option", 0,
+	    &index) != TCL_OK) {
 	return TCL_ERROR;
     }
 
diff --git a/generic/tkSelect.c b/generic/tkSelect.c
index 8afe6ca..2414b3d 100644
--- a/generic/tkSelect.c
+++ b/generic/tkSelect.c
@@ -689,8 +689,8 @@ Tk_SelectionObjCmd(
 	return TCL_ERROR;
     }
 
-    if (Tcl_GetIndexFromObjStruct(interp, objv[1], optionStrings,
-	    sizeof(char *), "option", 0, &index) != TCL_OK) {
+    if (Tcl_GetIndexFromObj(interp, objv[1], optionStrings, "option", 0,
+	    &index) != TCL_OK) {
 	return TCL_ERROR;
     }
 
@@ -715,8 +715,8 @@ Tk_SelectionObjCmd(
 		return TCL_ERROR;
 	    }
 
-	    if (Tcl_GetIndexFromObjStruct(interp, objs[0], clearOptionStrings,
-		    sizeof(char *), "option", 0, &clearIndex) != TCL_OK) {
+	    if (Tcl_GetIndexFromObj(interp, objs[0], clearOptionStrings,
+		    "option", 0, &clearIndex) != TCL_OK) {
 		return TCL_ERROR;
 	    }
 	    switch ((enum clearOptions) clearIndex) {
@@ -775,8 +775,8 @@ Tk_SelectionObjCmd(
 		return TCL_ERROR;
 	    }
 
-	    if (Tcl_GetIndexFromObjStruct(interp, objs[0], getOptionStrings,
-		    sizeof(char *), "option", 0, &getIndex) != TCL_OK) {
+	    if (Tcl_GetIndexFromObj(interp, objs[0], getOptionStrings,
+		    "option", 0, &getIndex) != TCL_OK) {
 		return TCL_ERROR;
 	    }
 
@@ -853,8 +853,8 @@ Tk_SelectionObjCmd(
 		return TCL_ERROR;
 	    }
 
-	    if (Tcl_GetIndexFromObjStruct(interp, objs[0],handleOptionStrings,
-		    sizeof(char *), "option", 0, &handleIndex) != TCL_OK) {
+	    if (Tcl_GetIndexFromObj(interp, objs[0],handleOptionStrings,
+		    "option", 0, &handleIndex) != TCL_OK) {
 		return TCL_ERROR;
 	    }
 
@@ -940,8 +940,8 @@ Tk_SelectionObjCmd(
 		return TCL_ERROR;
 	    }
 
-	    if (Tcl_GetIndexFromObjStruct(interp, objs[0], ownOptionStrings,
-		    sizeof(char *), "option", 0, &ownIndex) != TCL_OK) {
+	    if (Tcl_GetIndexFromObj(interp, objs[0], ownOptionStrings,
+		    "option", 0, &ownIndex) != TCL_OK) {
 		return TCL_ERROR;
 	    }
 
diff --git a/generic/tkTextBTree.c b/generic/tkTextBTree.c
index a06d7e9..e34dae7 100644
--- a/generic/tkTextBTree.c
+++ b/generic/tkTextBTree.c
@@ -1989,7 +1989,7 @@ TkBTreeLinesTo(
 	}
     }
     if (textPtr != NULL) {
-        /*
+        /* 
          * The index to return must be relative to textPtr, not to the entire
          * tree. Take care to never return a negative index when linePtr
          * denotes a line before -startline, or an index larger than the