diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-10-09 21:21:03 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-10-09 21:21:03 (GMT) |
| commit | f5014f51de2a38100606b1a17c37dfa6adeb0254 (patch) | |
| tree | 4dffdef6fe0ac726f03bbc051a23dde38ee49757 /generic | |
| parent | c56604b787456f11913887c485599b775b0ff04e (diff) | |
| download | tk-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.c | 6 |
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]; |