ag/cpython-source-deps
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import Tk 8.6.12

Browse Source
This commit is contained in:
Steve Dower
2021-11-08 17:28:57 +00:00
parent 070b8750b0
commit c6710de848
290 changed files with 5626 additions and 3660 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tests/ttk/spinbox.test
View File

@@ -127,7 +127,7 @@ test spinbox-1.8.2 "option -validate" -setup {
.sb cget -validate
} -cleanup {
destroy .sb
} -result {none}
} -result none
test spinbox-1.8.3 "option -validate" -setup {
ttk::spinbox .sb -from 0 -to 100
@@ -138,14 +138,18 @@ test spinbox-1.8.3 "option -validate" -setup {
} -returnCodes error -result {bad validate "bogus": must be all, key, focus, focusin, focusout, or none}
test spinbox-1.8.4 "-validate option: " -setup {
set ::spinbox_test {}
ttk::spinbox .sb -from 0 -to 100
set ::spinbox_test {}
} -body {
.sb configure -validate all -validatecommand {lappend ::spinbox_test %P}
.sb configure -validate all -validatecommand {set ::spinbox_test %P}
pack .sb
update idletasks
.sb set 50
focus -force .sb
after 500 {set ::spinbox_wait 1} ; vwait ::spinbox_wait
set ::spinbox_wait 0
set timer [after 100 {set ::spinbox_wait 1}]
vwait ::spinbox_wait
after cancel $timer
set ::spinbox_test
} -cleanup {
destroy .sb