summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-10-09 21:21:03 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-10-09 21:21:03 (GMT)
commitf5014f51de2a38100606b1a17c37dfa6adeb0254 (patch)
tree4dffdef6fe0ac726f03bbc051a23dde38ee49757 /generic
parentc56604b787456f11913887c485599b775b0ff04e (diff)
downloadtk-f5014f51de2a38100606b1a17c37dfa6adeb0254.zip
tk-f5014f51de2a38100606b1a17c37dfa6adeb0254.tar.gz
tk-f5014f51de2a38100606b1a17c37dfa6adeb0254.tar.bz2
* generic/tkListbox.c: Make literal return values consistent with
those generated by Tcl_PrintDouble(). * tests/entry.test: Restore test naming consistency with Tk 8.5. * tests/listbox.test: Remove some more dependency on precision in test results.
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 79f8797..94be1fb 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.48 2008/10/05 18:22:21 dkf Exp $
+ * RCS: @(#) $Id: tkListbox.c,v 1.49 2008/10/09 21:21:03 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];