diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-05-08 09:35:41 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-05-08 09:35:41 (GMT) |
| commit | 780c535e9d5a3d6e29f9dd81118a3e690e7856c4 (patch) | |
| tree | 88a8f7260a315993d69e01f0c55ddf02a2a0692f /tests/canvImg.test | |
| parent | 5c9f8f05e4dfc06c68a3bc1ec7c69b47683d9c51 (diff) | |
| download | tk-780c535e9d5a3d6e29f9dd81118a3e690e7856c4.zip tk-780c535e9d5a3d6e29f9dd81118a3e690e7856c4.tar.gz tk-780c535e9d5a3d6e29f9dd81118a3e690e7856c4.tar.bz2 | |
Stop deleted images from showing up in the various [image *] operations.
Can't delete early though as that removes the link with widgets and image names.
Diffstat (limited to 'tests/canvImg.test')
| -rw-r--r-- | tests/canvImg.test | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/canvImg.test b/tests/canvImg.test index e848bf3..ec6fb6b 100644 --- a/tests/canvImg.test +++ b/tests/canvImg.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: canvImg.test,v 1.6 2003/04/01 21:06:18 dgp Exp $ +# RCS: @(#) $Id: canvImg.test,v 1.7 2003/05/08 09:35:41 dkf Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -128,13 +128,14 @@ test canvImg-5.1 {DeleteImage procedure} testImageType { .c delete all .c create image 50 100 -image xyzzy -tags i1 update + set names [lsort [image names]] image delete xyzzy set z {} - set names [lsort [image names]] + set names2 [lsort [image names]] .c delete i1 update - list $names $z [lsort [image names]] -} {{foo foo2 xyzzy} {} {foo foo2}} + list $names $names2 $z [lsort [image names]] +} {{foo foo2 xyzzy} {foo foo2} {} {foo foo2}} test canvImg-5.2 {DeleteImage procedure (don't delete non-existent image)} { .c delete all .c create image 50 100 -tags i1 |