diff options
| author | bagnonm <bagnonm> | 2002-04-29 13:17:44 (GMT) |
|---|---|---|
| committer | bagnonm <bagnonm> | 2002-04-29 13:17:44 (GMT) |
| commit | 93cf942168281704178bff93e0c868f3de6fbef1 (patch) | |
| tree | 1c2d3bc843f7cc439cf97149c84acff495e00eb1 /library/choosedir.tcl | |
| parent | 09bf9bc63f9ba75fa56811474a18049ed8296e87 (diff) | |
| download | tk-93cf942168281704178bff93e0c868f3de6fbef1.zip tk-93cf942168281704178bff93e0c868f3de6fbef1.tar.gz tk-93cf942168281704178bff93e0c868f3de6fbef1.tar.bz2 | |
new feature, make dependence on msgcat soft, [539309]
Diffstat (limited to 'library/choosedir.tcl')
| -rw-r--r-- | library/choosedir.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/library/choosedir.tcl b/library/choosedir.tcl index 8f1df99..f17dc7b 100644 --- a/library/choosedir.tcl +++ b/library/choosedir.tcl @@ -5,7 +5,7 @@ # Copyright (c) 1998-2000 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: choosedir.tcl,v 1.11 2001/09/17 14:12:18 dkf Exp $ +# RCS: @(#) $Id: choosedir.tcl,v 1.12 2002/04/29 13:17:44 bagnonm Exp $ # Make sure the tk::dialog namespace, in which all dialogs should live, exists namespace eval ::tk::dialog {} @@ -13,6 +13,7 @@ namespace eval ::tk::dialog::file {} # Make the chooseDir namespace inside the dialog namespace namespace eval ::tk::dialog::file::chooseDir { + namespace import ::tk::msgcat::* } # ::tk::dialog::file::chooseDir:: -- @@ -135,9 +136,9 @@ proc ::tk::dialog::file::chooseDir::Config {dataName argList} { tclParseConfigSpec ::tk::dialog::file::$dataName $specs "" $argList if {$data(-title) == ""} { - set data(-title) "[::msgcat::mc "Choose Directory"]" + set data(-title) "[mc "Choose Directory"]" } - + # Stub out the -multiple value for the dialog; it doesn't make sense for # choose directory dialogs, but we have to have something there because we # share so much code with the file dialogs. |