Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Wait more carefully, since no wait is needed for Windows or linux. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | aqua_image_tests |
| Files: | files | file ages | folders |
| SHA3-256: |
ba19b2700f5f54472824d5c33ada1565 |
| User & Date: | culler 2019-05-23 14:21:20.835 |
Context
|
2019-05-24
| ||
| 21:18 | Improve image testing for Aqua check-in: d326a1b3 user: culler tags: core-8-6-branch | |
|
2019-05-23
| ||
| 14:21 | Wait more carefully, since no wait is needed for Windows or linux. Closed-Leaf check-in: ba19b270 user: culler tags: aqua_image_tests | |
|
2019-05-21
| ||
| 19:49 | Use vwait with a timeout to wait for test image display, as suggested by dkf. check-in: 36f8fe9d user: culler tags: aqua_image_tests | |
Changes
Changes to tests/canvImg.test.
| ︙ | ︙ | |||
162 163 164 165 166 167 168 |
image create test foo -variable x
image create test foo2 -variable y
foo2 changed 0 0 0 0 80 60
.c create image 50 100 -image foo -tags i1 -anchor nw
update
set x {}
set y {}
| | > > > | > | 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 |
image create test foo -variable x
image create test foo2 -variable y
foo2 changed 0 0 0 0 80 60
.c create image 50 100 -image foo -tags i1 -anchor nw
update
set x {}
set y {}
set timer [after 300 {lappend y "timeout"}]
.c itemconfigure i1 -image foo2
update idletasks
update
# On MacOS we need to wait for the test image display procedure to run.
while {"timeout" ni $y && [lindex $y end 1] ne "display"} {
vwait y
}
after cancel timer
list $x $y [.c bbox i1]
} -cleanup {
.c delete all
image delete foo
image delete foo2
} -result {{{foo free}} {{foo2 get} {foo2 display 0 0 80 60}} {50 100 130 160}}
|
| ︙ | ︙ |
Changes to tests/image.test.
| ︙ | ︙ | |||
58 59 60 61 62 63 64 |
imageCleanup
} -body {
image create test myimage -variable x
.c create image 100 50 -image myimage
.c create image 100 150 -image myimage
update
set x {}
| | > > > | > | 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 |
imageCleanup
} -body {
image create test myimage -variable x
.c create image 100 50 -image myimage
.c create image 100 150 -image myimage
update
set x {}
set timer [after 500 {lappend x "timeout"}]
image create test myimage -variable x
update idletasks
update
# On MacOS we need to wait for the test image display procedure to run.
while {"timeout" ni $x && [lindex $x end 1] ne "display"} {
vwait x
}
after cancel timer
return $x
} -cleanup {
imageCleanup
} -result {{myimage free} {myimage free} {myimage delete} {myimage get} {myimage get} {myimage display 0 0 30 15} {myimage display 0 0 30 15}}
test image-1.8 {Tk_ImageCmd procedure, "create" option} -constraints {
testImageType
|
| ︙ | ︙ | |||
359 360 361 362 363 364 365 |
imageCleanup
update
} -body {
image create test foo -variable x
.c create image 50 50 -image foo
update
set x {}
| | > > > | > | 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 |
imageCleanup
update
} -body {
image create test foo -variable x
.c create image 50 50 -image foo
update
set x {}
set timer [after 500 {lappend x "timeout"}]
foo changed 5 6 7 8 30 15
update idletasks
update
# On MacOS we need to wait for the test image display procedure to run.
while {"timeout" ni $x && [lindex $x end 1] ne "display"} {
vwait x
}
after cancel timer
return $x
} -cleanup {
.c delete all
imageCleanup
} -result $result_9_1
if {[tk windowingsystem] == "aqua" && $tcl_platform(osVersion) > 18} {
|
| ︙ | ︙ |