From 58bd8e9e3338d881a28f34cb3233f4b145415069 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 8 Oct 2002 20:21:23 +0000
Subject: 	* tests/winButton.test: add option clear to top to prevent
 option 	leakage from other tests causing problems. [Bug #582382]

---
 tests/winButton.test | 4 ++--
 1 file 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
-- 
cgit v0.12