diff options
-rw-r--r-- | tests/ttk/combobox.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/ttk/combobox.test b/tests/ttk/combobox.test index 3c40892..3868953 100644 --- a/tests/ttk/combobox.test +++ b/tests/ttk/combobox.test @@ -45,12 +45,12 @@ test combobox-2.4 "current -- value not in list" -body { test combobox-2.end "Cleanup" -body { destroy .cb } -test combobox-3 "Read postoffset value dynamically from current style" -constraints unix -body { +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 + pack .cb -expand true -fill both ttk::style configure DerivedStyle.TCombobox -postoffset [list 25 0 0 0] ttk::combobox::Post .cb - winfo x .cb.popdown + expr {[winfo rootx .cb.popdown] - [winfo rootx .cb]} } -result 25 -cleanup { destroy .cb } |