summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tkCanvText.c4
-rw-r--r--generic/tkListbox.c4
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) {