summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2017-03-13 13:33:38 (GMT)
committerfvogel <fvogelnew1@free.fr>2017-03-13 13:33:38 (GMT)
commit11e3592a11d54f1f9be294b842a526a9c3c6ef67 (patch)
treeb85398c643920ffd91b43b3679c3f14c0f336e2d
parent2a9ec78640adf4771ef371035ab3d4bb5207acf2 (diff)
downloadtk-11e3592a11d54f1f9be294b842a526a9c3c6ef67.zip
tk-11e3592a11d54f1f9be294b842a526a9c3c6ef67.tar.gz
tk-11e3592a11d54f1f9be294b842a526a9c3c6ef67.tar.bz2
Add test progressbar-3.2 (tweaked from a proposal from René Zaumseil)
-rw-r--r--tests/ttk/progressbar.test24
1 files changed, 24 insertions, 0 deletions
diff --git a/tests/ttk/progressbar.test b/tests/ttk/progressbar.test
index bd53f2e..7c888c6 100644
--- a/tests/ttk/progressbar.test
+++ b/tests/ttk/progressbar.test
@@ -97,4 +97,28 @@ test progressbar-3.1 "progressbar non-core options" -setup {
destroy .defaultpb
} -result {w black left {} {} 0 100 100 determinate horizontal 0 0.0 {}}
+test progressbar-3.2 "TIP #442 options are taken into account" -setup {
+ set res {}
+ pack [ttk::progressbar .p -value 0 -maximum 50 -orient horizontal -mode determinate -length 500]
+ set thefont [font actual {Arial 10}]
+} -body {
+ .p configure -anchor c -foreground blue -justify right \
+ -text "TIP #442\noptions are now tested" -wraplength 100
+ update
+ .p step 10
+ .p configure -anchor e -font $thefont -foreground green -justify center \
+ -text "Changing the value of each option\nfrom TIP #442" -wraplength 250
+ update
+ .p step 20
+ .p configure -orient vertical -text "Cannot be seen"
+ update
+ foreach option {-anchor -foreground -justify -text -wraplength} {
+ lappend res [list $option [.p cget $option]]
+ }
+ set res
+} -cleanup {
+ unset res thefont
+ destroy .p
+} -result {{-anchor e} {-foreground green} {-justify center} {-text {Cannot be seen}} {-wraplength 250}}
+
tcltest::cleanupTests