summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-10-09 21:20:45 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-10-09 21:20:45 (GMT)
commit6ba09276f087f88265682edc0829283880eae8a8 (patch)
treeb9e16b8f5493de79da8463b1e799c3718d6bca69 /generic
parent6f5e830d15c03e9f1b460e344a469b9f32f80b9f (diff)
downloadtk-6ba09276f087f88265682edc0829283880eae8a8.zip
tk-6ba09276f087f88265682edc0829283880eae8a8.tar.gz
tk-6ba09276f087f88265682edc0829283880eae8a8.tar.bz2
* generic/tkListbox.c: Make literal return values consistent with
those generated by Tcl_PrintDouble(). * tests/canvText.test: Backport test updates in light of the * tests/entry.test: 2008-10-05 commit. * tests/listbox.test:
Diffstat (limited to 'generic')
-rw-r--r--generic/tkListbox.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tkListbox.c b/generic/tkListbox.c
index e970ac2..d7c339c 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.44.2.1 2008/10/05 11:34:46 dkf Exp $
+ * RCS: @(#) $Id: tkListbox.c,v 1.44.2.2 2008/10/09 21:20:45 dgp Exp $
*/
#include "default.h"
@@ -1246,7 +1246,7 @@ ListboxXviewSubCmd(
- 2*(listPtr->inset + listPtr->selBorderWidth);
if (objc == 2) {
if (listPtr->maxWidth == 0) {
- Tcl_SetResult(interp, "0 1", TCL_STATIC);
+ Tcl_SetResult(interp, "0.0 1.0", TCL_STATIC);
} else {
char buf[TCL_DOUBLE_SPACE];
@@ -1320,7 +1320,7 @@ ListboxYviewSubCmd(
if (objc == 2) {
if (listPtr->nElements == 0) {
- Tcl_SetResult(interp, "0 1", TCL_STATIC);
+ Tcl_SetResult(interp, "0.0 1.0", TCL_STATIC);
} else {
char buf[TCL_DOUBLE_SPACE];