X-Git-Url: http://cvs.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/176c45720f3b9e5555fe1084d3e6ea59488c1785..refs/heads/legacy:/src/tk/tkcmds.c

diff --git a/src/tk/tkcmds.c b/src/tk/tkcmds.c
index 14207ad..de83949 100644
--- a/src/tk/tkcmds.c
+++ b/src/tk/tkcmds.c
@@ -500,6 +500,22 @@ WaitWindowProc (
     }
 }
 
+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;
+}
+
 /*
  *----------------------------------------------------------------------
  *
@@ -750,7 +766,7 @@ Tk_WinfoCmd (
 	    case PseudoColor:	interp->result = "pseudocolor"; break;
 	    case GrayScale:	interp->result = "grayscale"; break;
 	    case DirectColor:	interp->result = "directcolor"; break;
-	    case TrueColor:	interp->result = "truecolor"; break;
+	    case TrueColor:	interp->result = LegacyMode?"pseudocolor":"truecolor"; break;
 	    case StaticColor:	interp->result = "staticcolor"; break;
 	    case StaticGray:	interp->result = "staticgray"; break;
 	    default:		interp->result = "unknown"; break;