summaryrefslogtreecommitdiffstats
path: root/library/msgcat
diff options
context:
space:
mode:
authoroehhar <harald.oehlmann@elmicron.de>2015-06-29 21:26:24 (GMT)
committeroehhar <harald.oehlmann@elmicron.de>2015-06-29 21:26:24 (GMT)
commit499e061468e49ed8f794593938749e0ce797405e (patch)
tree6f4648cfbdafceea7207e7854f81c56916be0860 /library/msgcat
parent4acadf8d7735df752772eb9708d76bb81d6cecf4 (diff)
downloadtcl-499e061468e49ed8f794593938749e0ce797405e.zip
tcl-499e061468e49ed8f794593938749e0ce797405e.tar.gz
tcl-499e061468e49ed8f794593938749e0ce797405e.tar.bz2
Added tests for mcforgetpackage, mcpackagelocale and mcpackageconfigtip_412msgcat_dyn_locale
Diffstat (limited to 'library/msgcat')
-rwxr-xr-xlibrary/msgcat/msgcat.tcl7
1 files changed, 4 insertions, 3 deletions
diff --git a/library/msgcat/msgcat.tcl b/library/msgcat/msgcat.tcl
index 0991f1c..5ed9f3a 100755
--- a/library/msgcat/msgcat.tcl
+++ b/library/msgcat/msgcat.tcl
@@ -468,8 +468,9 @@ proc msgcat::mcpackagelocale {subcommand {locale ""}} {
get { return [lindex [PackagePreferences $ns] 0] }
preferences { return [PackagePreferences $ns] }
loaded { return [PackageLocales $ns] }
- isset { return [dict exists $PackageConfig loclist $ns] }
- set { # set a package locale or add a package locale
+ present { return [expr {$locale in [PackageLocales $ns]} ]}
+ isset { return [dict exists $PackageConfig loclist $ns] }
+ set { # set a package locale or add a package locale
# Copy the default locale if no package locale set so far
if {![dict exists $PackageConfig loclist $ns]} {
@@ -667,7 +668,7 @@ proc msgcat::mcpackageconfig {subcommand option {value ""}} {
}
default {
return -code error "unknown subcommand \"$subcommand\":\
- must be get, isset, unset, or set"
+ must be get, isset, set, or unset"
}
}
return