diff options
| author | dgp@users.sourceforge.net <dgp> | 2008-10-10 16:28:25 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2008-10-10 16:28:25 (GMT) |
| commit | 59b24ec5e0712cc127a53fa5aedf27b9b4a7316f (patch) | |
| tree | 3d4f1ea80037aa2fadfb570fae95f706075e1d6a /tests/textDisp.test | |
| parent | 002e2f68afd2ca295f00fa5f8bb2dfd77541c88e (diff) | |
| download | tk-59b24ec5e0712cc127a53fa5aedf27b9b4a7316f.zip tk-59b24ec5e0712cc127a53fa5aedf27b9b4a7316f.tar.gz tk-59b24ec5e0712cc127a53fa5aedf27b9b4a7316f.tar.bz2 | |
* tests/canvText.test: Backport test updates in light of the
* tests/entry.test: 2008-10-05 commit.
* tests/listbox.test:
* tests/scrollbar.test:
* tests/spinbox.test:
* tests/textDisp.test:
Diffstat (limited to 'tests/textDisp.test')
| -rw-r--r-- | tests/textDisp.test | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index c8594e2..116d623 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textDisp.test,v 1.42 2007/12/13 15:27:54 dgp Exp $ +# RCS: @(#) $Id: textDisp.test,v 1.42.2.1 2008/10/10 16:28:25 dgp Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -1962,18 +1962,24 @@ test textDisp-16.33 {TkTextYviewCmd procedure} { test textDisp-16.34 {TkTextYviewCmd procedure} { set res {} .t yview 1.0 - lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}] + lappend res [format %.12g [expr {[lindex [.t yview] 0] + * [.t count -ypixels 1.0 end]}]] .t yview scroll 1 pixels - lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}] + lappend res [format %.12g [expr {[lindex [.t yview] 0] + * [.t count -ypixels 1.0 end]}]] .t yview scroll 1 pixels - lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}] + lappend res [format %.12g [expr {[lindex [.t yview] 0] + * [.t count -ypixels 1.0 end]}]] .t yview scroll 1 pixels - lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}] + lappend res [format %.12g [expr {[lindex [.t yview] 0] + * [.t count -ypixels 1.0 end]}]] .t yview scroll 1 pixels - lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}] + lappend res [format %.12g [expr {[lindex [.t yview] 0] + * [.t count -ypixels 1.0 end]}]] .t yview scroll 1 pixels - lappend res [expr {[lindex [.t yview] 0] * [.t count -ypixels 1.0 end]}] -} {0.0 1.0 2.0 3.0 4.0 5.0} + lappend res [format %.12g [expr {[lindex [.t yview] 0] + * [.t count -ypixels 1.0 end]}]] +} {0 1 2 3 4 5} test textDisp-16.35 {TkTextYviewCmd procedure} { set res {} .t yview 1.0 |