Add "none" as possible index value for menu's (but keep it undocument…

…ed). See [fec9e3879d]
tcltk · Dec 26, 2023 · eeb1ac4 · eeb1ac4
2 parents 8ccfc03 + 8253b14
commit eeb1ac4
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/generic/tkMenu.c b/generic/tkMenu.c
@@ -2185,6 +2185,12 @@ GetMenuIndex(
 	*indexPtr = TCL_INDEX_NONE;
 	return TCL_OK;
     }
+#if !defined(TK_NO_DEPRECATED)
+    if ((string[0] == 'n') && (strcmp(string, "none") == 0)) {
+	*indexPtr = TCL_INDEX_NONE;
+	return TCL_OK;
+    }
+#endif
 
     if (string[0] == '@') {
 	if (GetIndexFromCoords(interp, menuPtr, string, indexPtr)