Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Tweak test image-7.1. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-6-branch |
| Files: | files | file ages | folders |
| SHA3-256: |
0ed60e17961d8bd7d6d174b88c886845 |
| User & Date: | culler 2019-05-24 21:55:35 |
Context
|
2019-05-25
| ||
| 17:29 | Partial fix of bug [67384bce7d]: change expected result of winfo-13.2. Also disable test of unimplemented TkpRedirectKeyEvent check-in: 02ca3773 user: culler tags: core-8-6-branch | |
|
2019-05-24
| ||
| 22:06 | Improve image testing for Aqua check-in: e49ebc82 user: culler tags: trunk | |
| 21:55 | Tweak test image-7.1. check-in: 0ed60e17 user: culler tags: core-8-6-branch | |
| 21:18 | Improve image testing for Aqua check-in: d326a1b3 user: culler tags: core-8-6-branch | |
Changes
Changes to tests/image.test.
67 68 69 70 71 72 73 74 75 76 77 78 79 80 |
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
} -setup {
|
> > > |
67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 |
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
if {[lindex $x end] eq "timeout"} {
return [lreplace $x end end]
}
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
} -setup {
|