diff options
| author | hobbs <hobbs> | 2000-03-02 23:45:12 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-03-02 23:45:12 (GMT) |
| commit | bf57a0fbe4c882798098b435c1967d92064d8db2 (patch) | |
| tree | 95e3dfd65bc8172995ea1ecf4717d919f9ae9dc0 | |
| parent | 5d31bb955a2106e43a20b5c04c0058d229a6d03a (diff) | |
| download | tk-bf57a0fbe4c882798098b435c1967d92064d8db2.zip tk-bf57a0fbe4c882798098b435c1967d92064d8db2.tar.gz tk-bf57a0fbe4c882798098b435c1967d92064d8db2.tar.bz2 | |
fixed var set problem
| -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?" |