Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Tweak test image-7.1. |
---|---|
Downloads: | Tarball | ZIP 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.514 |
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 { |
︙ | ︙ |