diff options
author | jenglish <jenglish@flightlab.com> | 2008-08-19 14:47:54 (GMT) |
---|---|---|
committer | jenglish <jenglish@flightlab.com> | 2008-08-19 14:47:54 (GMT) |
commit | 03d77dae7c7add838a4b5a9e29dd3561899decc5 (patch) | |
tree | c70888bfe7837c6e68b6021de9a3587db899cd04 /tests | |
parent | 8899e854a9fbe9bd153ceb639caab38ac6c150cb (diff) | |
download | tk-03d77dae7c7add838a4b5a9e29dd3561899decc5.zip tk-03d77dae7c7add838a4b5a9e29dd3561899decc5.tar.gz tk-03d77dae7c7add838a4b5a9e29dd3561899decc5.tar.bz2 |
generic/ttk/ttkScroll.c: Don't use sprintf "%g" to format floating
point numbers in -[xy]scrollcommand callbacks or [xy]view methods.
Minor incompatibility: 0 and 1 now formatted as "0.0" resp "1.0".
Diffstat (limited to 'tests')
-rw-r--r-- | tests/ttk/entry.test | 4 | ||||
-rw-r--r-- | tests/ttk/treeview.test | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/tests/ttk/entry.test b/tests/ttk/entry.test index 929e856..0c2f0be 100644 --- a/tests/ttk/entry.test +++ b/tests/ttk/entry.test @@ -79,7 +79,7 @@ test entry-2.2 "Initial scroll position" -body { .e insert end "0123456789" pack .e; update set scrollInfo -} -result {0 0.5} -cleanup { destroy .e } +} -result {0.0 0.5} -cleanup { destroy .e } # NOTE: result can vary depending on font. # Bounding box / scrolling tests. @@ -105,7 +105,7 @@ test entry-3.2 "xview" -body { .e insert end [string repeat "0" 40] update idletasks set result [.e xview] -} -result {0 0.5} +} -result {0.0 0.5} test entry-3.last "Series 3 cleanup" -body { destroy .e diff --git a/tests/ttk/treeview.test b/tests/ttk/treeview.test index 2a58444..bf5f8ec 100644 --- a/tests/ttk/treeview.test +++ b/tests/ttk/treeview.test @@ -1,5 +1,5 @@ # -# $Id: treeview.test,v 1.4 2008/05/23 20:20:07 jenglish Exp $ +# $Id: treeview.test,v 1.5 2008/08/19 14:47:55 jenglish Exp $ # # [7Jun2005] TO CHECK: [$tv see {}] -- shouldn't work (at least, shouldn't do # what it currently does) @@ -471,7 +471,7 @@ test treeview-9.0 "scroll callback - empty tree" -body { .tv delete [.tv children {}] update set ::scrolldata -} -result [list 0 1] +} -result [list 0.0 1.0] ### identify tests: # |