+static int LegacyMode = 0;
+
+int
+Tk_WinfoCmdSetLegacy (
+ ClientData clientData, /* Main window associated with
+ * interpreter. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
+{
+ LegacyMode = 1;
+
+ return TCL_OK;
+}
+