diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-10-09 21:20:45 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-10-09 21:20:45 (GMT) |
| commit | 6ba09276f087f88265682edc0829283880eae8a8 (patch) | |
| tree | b9e16b8f5493de79da8463b1e799c3718d6bca69 /generic | |
| parent | 6f5e830d15c03e9f1b460e344a469b9f32f80b9f (diff) | |
| download | tk-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.c | 6 |
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]; |