From 291d618cfb6ad5e935244599abbf1bdb93a284fc Mon Sep 17 00:00:00 2001 From: dkf Date: Fri, 3 Oct 2008 15:37:02 +0000 Subject: typo --- generic/tkCanvText.c | 4 ++-- generic/tkListbox.c | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/generic/tkCanvText.c b/generic/tkCanvText.c index 3450633..21987f7 100644 --- a/generic/tkCanvText.c +++ b/generic/tkCanvText.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkCanvText.c,v 1.28 2008/10/03 13:13:31 dkf Exp $ + * RCS: @(#) $Id: tkCanvText.c,v 1.29 2008/10/03 15:37:13 dkf Exp $ */ #include @@ -1501,7 +1501,7 @@ TextToPostscript( } Tk_GetFontMetrics(textPtr->tkfont, &fm); - sprintf(buffer. "] %d ", fm.linespace); + sprintf(buffer, "] %d ", fm.linespace); Tcl_AppendResult(interp, buffer, NULL); Tcl_PrintDouble(NULL, x / -2.0, buffer); Tcl_AppendResult(interp, buffer, " ", NULL); diff --git a/generic/tkListbox.c b/generic/tkListbox.c index 6a61416..0c91a3a 100644 --- a/generic/tkListbox.c +++ b/generic/tkListbox.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: tkListbox.c,v 1.46 2008/10/03 13:13:31 dkf Exp $ + * RCS: @(#) $Id: tkListbox.c,v 1.47 2008/10/03 15:37:02 dkf Exp $ */ #include "default.h" @@ -1258,7 +1258,7 @@ ListboxXviewSubCmd( } Tcl_PrintDouble(NULL, fraction, buf); Tcl_SetResult(interp, buf, TCL_VOLATILE); - Tcl_PrintDouble(NULL, fraction1, buf); + Tcl_PrintDouble(NULL, fraction2, buf); Tcl_AppendResult(interp, " ", buf, NULL); } } else if (objc == 3) { -- cgit v0.12