diff options
Diffstat (limited to 'tk8.6/tests/ttk/combobox.test')
-rw-r--r-- | tk8.6/tests/ttk/combobox.test | 77 |
1 files changed, 0 insertions, 77 deletions
diff --git a/tk8.6/tests/ttk/combobox.test b/tk8.6/tests/ttk/combobox.test deleted file mode 100644 index 7ea0c5c..0000000 --- a/tk8.6/tests/ttk/combobox.test +++ /dev/null @@ -1,77 +0,0 @@ -# -# ttk::combobox widget tests -# - -package require Tk 8.5 -package require tcltest ; namespace import -force tcltest::* -loadTestedCommands - -test combobox-1.0 "Combobox tests -- setup" -body { - ttk::combobox .cb -} -result .cb - -test combobox-1.1 "Bad -values list" -body { - .cb configure -values "bad \{list" -} -result "unmatched open brace in list" -returnCodes 1 - -test combobox-1.end "Combobox tests -- cleanup" -body { - destroy .cb -} - -test combobox-2.0 "current command" -body { - ttk::combobox .cb -values [list a b c d e a] - .cb current -} -result -1 - -test combobox-2.1 "current -- set index" -body { - .cb current 5 - .cb get -} -result a - -test combobox-2.2 "current -- change -values" -body { - .cb configure -values [list c b a d e] - .cb current -} -result 2 - -test combobox-2.3 "current -- change value" -body { - .cb set "b" - .cb current -} -result 1 - -test combobox-2.4 "current -- value not in list" -body { - .cb set "z" - .cb current -} -result -1 - -test combobox-2.end "Cleanup" -body { destroy .cb } - -test combobox-3 "Read postoffset value dynamically from current style" -body { - ttk::combobox .cb -values [list a b c] -style "DerivedStyle.TCombobox" - pack .cb -expand true -fill both - ttk::style configure DerivedStyle.TCombobox -postoffset [list 25 0 0 0] - ttk::combobox::Post .cb - expr {[winfo rootx .cb.popdown] - [winfo rootx .cb]} -} -result 25 -cleanup { - destroy .cb -} - -test combobox-1890211 "ComboboxSelected event after listbox unposted" -body { - # whitebox test... - pack [ttk::combobox .cb -values [list a b c]] - set result [list] - bind .cb <<ComboboxSelected>> { - lappend result Event [winfo ismapped .cb.popdown] [.cb get] - } - lappend result Start 0 [.cb get] - ttk::combobox::Post .cb - lappend result Post [winfo ismapped .cb.popdown] [.cb get] - .cb.popdown.f.l selection clear 0 end; .cb.popdown.f.l selection set 1 - ttk::combobox::LBSelected .cb.popdown.f.l - lappend result Select [winfo ismapped .cb.popdown] [.cb get] - update - set result -} -result [list Start 0 {} Post 1 {} Select 0 b Event 0 b] -cleanup { - destroy .cb -} - -tcltest::cleanupTests |