summaryrefslogtreecommitdiffstats
path: root/tests/textDisp.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/textDisp.test')
-rw-r--r--tests/textDisp.test10
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test
index d1466ee..64b9bdd 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.11 2003/10/31 14:21:49 vincentdarley Exp $
+# RCS: @(#) $Id: textDisp.test,v 1.12 2003/10/31 18:05:49 vincentdarley Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -1707,7 +1707,7 @@ test textDisp-16.18 {TkTextYviewCmd procedure, "moveto" roundoff} {fonts} {
set result [.top1.t yview]
destroy .top1
set result
-} {0.333333 0.833333}
+} {0.333333333333 0.833333333333}
test textDisp-16.19 {TkTextYviewCmd procedure, "scroll" option} {
list [catch {.t yview scroll a} msg] $msg
} {1 {wrong # args: should be ".t yview scroll number units|pages|pixels"}}
@@ -3068,7 +3068,7 @@ test textDisp-29.1 {miscellaneous: lines wrap but are still too long} {fonts} {
.t2.t window create 1.1 -window .t2.t.f
update
list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3]
-} {{0 0.466667} 300x50+5+18 {12 68 7 13}}
+} {{0 0.466666666667} 300x50+5+18 {12 68 7 13}}
test textDisp-29.2 {miscellaneous: lines wrap but are still too long} {fonts} {
catch {destroy .t2}
toplevel .t2
@@ -3084,7 +3084,7 @@ test textDisp-29.2 {miscellaneous: lines wrap but are still too long} {fonts} {
.t2.t xview scroll 1 unit
update
list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3]
-} {{0.0233333 0.49} 300x50+-2+18 {5 68 7 13}}
+} {{0.0233333333333 0.49} 300x50+-2+18 {5 68 7 13}}
test textDisp-29.3 {miscellaneous: lines wrap but are still too long} {fonts} {
catch {destroy .t2}
toplevel .t2
@@ -3101,7 +3101,7 @@ test textDisp-29.3 {miscellaneous: lines wrap but are still too long} {fonts} {
.t2.t xview scroll 200 units
update
list [.t2.t xview] [winfo geom .t2.t.f] [.t2.t bbox 1.3]
-} {{0.536667 1} 300x50+-156+18 {}}
+} {{0.536666666667 1} 300x50+-156+18 {}}
test textDisp-30.1 {elidden text complications} {knownBug} {
.t2.t delete 1.0 end