summaryrefslogtreecommitdiffstats
path: root/tests/button.test
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@noemail.net>2009-01-11 23:37:15 (GMT)
committerpatthoyts <patthoyts@noemail.net>2009-01-11 23:37:15 (GMT)
commitcd0cd6487c3491d72494c4bcb27574df76c9cc99 (patch)
tree6cda904e6692b3125ca9d31428f4a370d33e1c96 /tests/button.test
parent39d5f33c3ade32f877cb04ee1ecd7698e3b1694a (diff)
downloadtk-cd0cd6487c3491d72494c4bcb27574df76c9cc99.zip
tk-cd0cd6487c3491d72494c4bcb27574df76c9cc99.tar.gz
tk-cd0cd6487c3491d72494c4bcb27574df76c9cc99.tar.bz2
[Bug 2495740] result needed to exclude any images already present.
FossilOrigin-Name: be96804e7ab4bca1b9715c02568b6f12a3ecb684
Diffstat (limited to 'tests/button.test')
-rw-r--r--tests/button.test9
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/button.test b/tests/button.test
index bfa621c..ee59731 100644
--- a/tests/button.test
+++ b/tests/button.test
@@ -7,7 +7,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: button.test,v 1.23 2008/07/23 23:24:25 nijtmans Exp $
+# RCS: @(#) $Id: button.test,v 1.24 2009/01/11 23:37:15 patthoyts Exp $
package require tcltest 2.2
namespace import ::tcltest::*
@@ -3256,13 +3256,18 @@ test button-5.4 {ConfigureButton - variable trace} -body { ;# ex 6.2a
test button-5.5 {ConfigureButton - image handling} -constraints {
testImageType
} -setup {
+ set images [image names]
image create test image1
image create test image2
} -body {
button .b -image image1
image delete image1
.b configure -image image2
- image names
+ set result {}
+ foreach image [image names] {
+ if {$image ni $images} { lappend result $image }
+ }
+ set result
} -cleanup {
destroy .b
image delete image2