diff options
| -rw-r--r-- | generic/tkCanvText.c | 4 | ||||
| -rw-r--r-- | 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 <stdio.h> @@ -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) { |