diff options
| author | kennykb <kennykb@noemail.net> | 2003-10-21 00:23:32 (GMT) |
|---|---|---|
| committer | kennykb <kennykb@noemail.net> | 2003-10-21 00:23:32 (GMT) |
| commit | 76b319fafb9c520891b51eb3e86c0db5e8227637 (patch) | |
| tree | 2ed74cd43101586ffe55de9721f1354589548214 /library/msgcat | |
| parent | e69b1ebd88275f4d09c9057a6eef5d59f93db3e9 (diff) | |
| download | tcl-76b319fafb9c520891b51eb3e86c0db5e8227637.zip tcl-76b319fafb9c520891b51eb3e86c0db5e8227637.tar.gz tcl-76b319fafb9c520891b51eb3e86c0db5e8227637.tar.bz2 | |
TIP #156: Language-Neutral Root Locale for Msgcat
FossilOrigin-Name: 36d6f6daf70212cfdca9e53a02bd5cc660cf9ed6
Diffstat (limited to 'library/msgcat')
| -rw-r--r-- | library/msgcat/msgcat.tcl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/library/msgcat/msgcat.tcl b/library/msgcat/msgcat.tcl index 93c7214..08de274 100644 --- a/library/msgcat/msgcat.tcl +++ b/library/msgcat/msgcat.tcl @@ -10,12 +10,12 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: msgcat.tcl,v 1.18 2003/08/06 23:02:05 dgp Exp $ +# RCS: @(#) $Id: msgcat.tcl,v 1.19 2003/10/21 00:23:34 kennykb Exp $ package require Tcl 8.2 # When the version number changes, be sure to update the pkgIndex.tcl file, # and the installation directory in the Makefiles. -package provide msgcat 1.3.1 +package provide msgcat 1.4 namespace eval msgcat { namespace export mc mcload mclocale mcmax mcmset mcpreferences mcset \ @@ -234,6 +234,7 @@ proc msgcat::mclocale {args} { set word [string trimleft "${word}_${part}" _] set Loclist [linsert $Loclist 0 $word] } + lappend Loclist {} } return $Locale } @@ -268,6 +269,9 @@ proc msgcat::mcpreferences {} { proc msgcat::mcload {langdir} { set x 0 foreach p [mcpreferences] { + if { $p eq {} } { + set p ROOT + } set langfile [file join $langdir $p.msg] if {[file exists $langfile]} { incr x |