diff options
| author | dgp <dgp@noemail.net> | 2008-10-09 21:20:45 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2008-10-09 21:20:45 (GMT) |
| commit | 8f884462e19e6fae3640438d3a7ba8bde30d1b1b (patch) | |
| tree | b9e16b8f5493de79da8463b1e799c3718d6bca69 /generic/tkListbox.c | |
| parent | edc528717daa2b850d0d855a03d329dfe23c7e76 (diff) | |
| download | tk-8f884462e19e6fae3640438d3a7ba8bde30d1b1b.zip tk-8f884462e19e6fae3640438d3a7ba8bde30d1b1b.tar.gz tk-8f884462e19e6fae3640438d3a7ba8bde30d1b1b.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:
FossilOrigin-Name: d730e42a729101d29aec2daebd486b209a129424
Diffstat (limited to 'generic/tkListbox.c')
| -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]; |