diff options
| -rw-r--r-- | tests/choosedir.test | 4 |
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?" |