summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-03-02 23:45:12 (GMT)
committerhobbs <hobbs>2000-03-02 23:45:12 (GMT)
commitbf57a0fbe4c882798098b435c1967d92064d8db2 (patch)
tree95e3dfd65bc8172995ea1ecf4717d919f9ae9dc0 /tests
parent5d31bb955a2106e43a20b5c04c0058d229a6d03a (diff)
downloadtk-bf57a0fbe4c882798098b435c1967d92064d8db2.zip
tk-bf57a0fbe4c882798098b435c1967d92064d8db2.tar.gz
tk-bf57a0fbe4c882798098b435c1967d92064d8db2.tar.bz2
fixed var set problem
Diffstat (limited to 'tests')
-rw-r--r--tests/choosedir.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/choosedir.test b/tests/choosedir.test
index 3961490..1ca46f1 100644
--- a/tests/choosedir.test
+++ b/tests/choosedir.test
@@ -5,7 +5,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: choosedir.test,v 1.2 2000/02/26 00:51:17 ericm Exp $
+# RCS: @(#) $Id: choosedir.test,v 1.3 2000/03/02 23:45:12 hobbs Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -75,7 +75,7 @@ proc SendButtonPress {parent btn type} {
# The test suite proper
#
#----------------------------------------------------------------------
-
+catch {unset err}
append err(usage) "tk_chooseDirectory "
append err(usage) "?-initialdir directory? ?-mustexist boolean? "
append err(usage) "?-parent window? ?-title title?"