summaryrefslogtreecommitdiffstats
path: root/library/msgcat/msgcat.tcl
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2003-10-21 00:23:33 (GMT)
committerKevin B Kenny <kennykb@acm.org>2003-10-21 00:23:33 (GMT)
commit069e6b39be18f68043fb7389188c1e8d2a6afb06 (patch)
tree2ed74cd43101586ffe55de9721f1354589548214 /library/msgcat/msgcat.tcl
parent7c7a39a26c9bd772bf26ae6fd1be320d392d10db (diff)
downloadtcl-069e6b39be18f68043fb7389188c1e8d2a6afb06.zip
tcl-069e6b39be18f68043fb7389188c1e8d2a6afb06.tar.gz
tcl-069e6b39be18f68043fb7389188c1e8d2a6afb06.tar.bz2
TIP #156: Language-Neutral Root Locale for Msgcat
Diffstat (limited to 'library/msgcat/msgcat.tcl')
-rw-r--r--library/msgcat/msgcat.tcl8
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