summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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?"