From fc07382fecf576d43fc28117ca52416170fb0f4f Mon Sep 17 00:00:00 2001 From: dkf Date: Sun, 23 May 2004 17:27:55 +0000 Subject: Minor fix for Tk_GetVisual error message --- ChangeLog | 4 ++++ generic/tkVisual.c | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index dafed32..ebeefb2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2004-05-23 Donal K. Fellows + + * generic/tkVisual.c (Tk_GetVisual): Minor fix for error message. + 2004-05-14 Donal K. Fellows * library/msgbox.tcl (MessageBox): Added TIP#152's -detail option diff --git a/generic/tkVisual.c b/generic/tkVisual.c index d7e85b4..9f81693 100644 --- a/generic/tkVisual.c +++ b/generic/tkVisual.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkVisual.c,v 1.5 2004/01/13 02:06:01 davygrvy Exp $ + * RCS: @(#) $Id: tkVisual.c,v 1.6 2004/05/23 17:27:55 dkf Exp $ */ #include "tkInt.h" @@ -175,12 +175,12 @@ Tk_GetVisual(interp, tkwin, string, depthPtr, colormapPtr) int visualId; /* - * This is a visual ID. - */ + * This is a visual ID. + */ if (Tcl_GetInt(interp, string, &visualId) == TCL_ERROR) { Tcl_ResetResult(interp); - Tcl_AppendResult(interp, "bad X identifier for visual: ", + Tcl_AppendResult(interp, "bad X identifier for visual: \"", string, "\"", (char *) NULL); return NULL; } -- cgit v0.12