summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-10-08 20:21:23 (GMT)
committerhobbs <hobbs>2002-10-08 20:21:23 (GMT)
commit58bd8e9e3338d881a28f34cb3233f4b145415069 (patch)
tree3166c5c67b15e2865f0871b84a8fafec825add24 /tests
parent74fdec4b5fbf4c92ecdb0aa2ceb66d1ecf36a790 (diff)
downloadtk-58bd8e9e3338d881a28f34cb3233f4b145415069.zip
tk-58bd8e9e3338d881a28f34cb3233f4b145415069.tar.gz
tk-58bd8e9e3338d881a28f34cb3233f4b145415069.tar.bz2
* tests/winButton.test: add option clear to top to prevent option
leakage from other tests causing problems. [Bug #582382]
Diffstat (limited to 'tests')
-rw-r--r--tests/winButton.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/winButton.test b/tests/winButton.test
index 5e6214c..eb9373d 100644
--- a/tests/winButton.test
+++ b/tests/winButton.test
@@ -8,7 +8,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: winButton.test,v 1.8 2002/07/13 20:28:36 dgp Exp $
+# RCS: @(#) $Id: winButton.test,v 1.9 2002/10/08 20:21:23 hobbs Exp $
package require tcltest 2.1
namespace import -force tcltest::configure
@@ -22,7 +22,7 @@ proc bogusTrace args {
}
catch {unset value}
catch {unset value2}
-
+option clear
eval image delete [image names]
if {[testConstraint testImageType]} {
image create test image1