summaryrefslogtreecommitdiffstats
path: root/tests/image.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2019-10-10 08:07:06 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2019-10-10 08:07:06 (GMT)
commit56de2058b0be5410f7b9f6c913c1a70b418137a6 (patch)
treeeb6d54a0f82fb37b5d47caebf727623f1250fe72 /tests/image.test
parentdf640a1dfa81b087de3bc53f2b4c4b2388d3d8da (diff)
downloadtk-56de2058b0be5410f7b9f6c913c1a70b418137a6.zip
tk-56de2058b0be5410f7b9f6c913c1a70b418137a6.tar.gz
tk-56de2058b0be5410f7b9f6c913c1a70b418137a6.tar.bz2
Change a few "update idletask" from previous commit back to "update". Other platforms most likely need it this way.
Diffstat (limited to 'tests/image.test')
-rw-r--r--tests/image.test12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/image.test b/tests/image.test
index 70c3f72..6d51e51 100644
--- a/tests/image.test
+++ b/tests/image.test
@@ -88,12 +88,12 @@ test image-1.8 {Tk_ImageCmd procedure, "create" option} -constraints {
.c create image 100 50 -image myimage
.c create image 100 150 -image myimage
image delete myimage
- update idletasks
+ update
set x {}
image create test myimage -variable x
# macOS Catalina needs a delay here.
after 20
- update idletasks
+ update
return $x
} -cleanup {
.c delete all
@@ -400,13 +400,13 @@ test image-9.2 {Tk_ImageChanged procedure} -constraints testImageType -setup {
image create test foo -variable x
.c create image 50 50 -image foo
.c create image 90 100 -image foo
- update idletasks
+ update
set x {}
foo changed 5 6 7 8 30 15
image create test myimage -variable x
# macOS Catalina needs a delay here.
after 20
- update idletasks
+ update
return $x
} -cleanup {
.c delete all
@@ -442,11 +442,11 @@ test image-11.1 {Tk_FreeImage procedure} -constraints testImageType -setup {
.c create image 50 50 -image foo -tags i1
.c create image 90 100 -image foo -tags i2
pack forget .c
- update idletasks
+ update
set x {}
.c delete i1
pack .c
- update idletasks
+ update
# macOS Catalina needs a delay here.
after 20
list [imageNames] $x