diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-09-26 09:50:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-09-26 09:50:07 (GMT) |
| commit | 716853d7df8e0f73778e0f53ee74564a5c282892 (patch) | |
| tree | 4f43564f3a0b41e20e7ed8b4f510c27550f98d9a /tests/ttk/spinbox.test | |
| parent | 06f3173fc0a3402010291caa151baa8fef3e5a9d (diff) | |
| parent | 05a224b57c876cd9db9d2478dddf9614b16b0661 (diff) | |
| download | tk-716853d7df8e0f73778e0f53ee74564a5c282892.zip tk-716853d7df8e0f73778e0f53ee74564a5c282892.tar.gz tk-716853d7df8e0f73778e0f53ee74564a5c282892.tar.bz2 | |
merge core-8-6-branch
Diffstat (limited to 'tests/ttk/spinbox.test')
| -rw-r--r-- | tests/ttk/spinbox.test | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/ttk/spinbox.test b/tests/ttk/spinbox.test index 32b77af..08f2bda 100644 --- a/tests/ttk/spinbox.test +++ b/tests/ttk/spinbox.test @@ -199,6 +199,27 @@ test spinbox-2.4 "current command -- value not in list" -constraints nyi -setup destroy .sb } -result -1 +test spinbox-3.0 "textarea should expand to fill widget" -setup { + set SBV 5 + set ::spinbox_test {} + ttk::spinbox .sb -from 0 -to 10 -textvariable SBV +} -body { + grid .sb -sticky ew + grid columnconfigure . 0 -weight 1 + bind . <Map> { + after idle { + wm geometry . "210x80" + after 100 {set ::spinbox_test [.sb identify element 5 5]} + } + bind . <Map> {} + } + after 500 {set ::spinbox_wait 1} ; vwait ::spinbox_wait + set ::spinbox_test +} -cleanup { + destroy .sb + unset -nocomplain ::spinbox_test SBV +} -result {textarea} + # nostomp: NB intentional difference between ttk::spinbox and tk::spinbox; # see also #1439266 # |