summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog4
-rw-r--r--generic/tkVisual.c8
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 <donal.k.fellows@man.ac.uk>
+
+ * generic/tkVisual.c (Tk_GetVisual): Minor fix for error message.
+
2004-05-14 Donal K. Fellows <donal.k.fellows@man.ac.uk>
* 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;
}