diff options
author | fvogel <fvogelnew1@free.fr> | 2019-05-03 20:48:18 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2019-05-03 20:48:18 (GMT) |
commit | bd4341f10b3d578fa90169f24e61d8db933d680d (patch) | |
tree | adc1b7844e0a4b56585b148890e973b16c4858e9 /tests/ttk | |
parent | 2ec7162d109eca92bb2ef89add0826b71e241e95 (diff) | |
download | tk-bd4341f10b3d578fa90169f24e61d8db933d680d.zip tk-bd4341f10b3d578fa90169f24e61d8db933d680d.tar.gz tk-bd4341f10b3d578fa90169f24e61d8db933d680d.tar.bz2 |
Fix [2858503fff]: 'end' index for ttk::combobox current
Diffstat (limited to 'tests/ttk')
-rw-r--r-- | tests/ttk/combobox.test | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/ttk/combobox.test b/tests/ttk/combobox.test index 7ea0c5c..45fe0fc 100644 --- a/tests/ttk/combobox.test +++ b/tests/ttk/combobox.test @@ -43,6 +43,17 @@ test combobox-2.4 "current -- value not in list" -body { .cb current } -result -1 +test combobox-2.5 "current -- set to end index" -body { + .cb configure -values [list a b c d e thelastone] + .cb current end + .cb get +} -result thelastone + +test combobox-2.6 "current -- set to unknown index" -body { + .cb configure -values [list a b c d e] + .cb current notanindex +} -returnCodes error -result {Incorrect index notanindex} + test combobox-2.end "Cleanup" -body { destroy .cb } test combobox-3 "Read postoffset value dynamically from current style" -body { |