summaryrefslogtreecommitdiffstats
path: root/library/msgcat/msgcat.tcl
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2015-09-01 15:15:46 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2015-09-01 15:15:46 (GMT)
commit67acc8945524908e6b8e9e1f8b1f949d3a146e11 (patch)
treece07568e15418586794d34eedbaa04e6f1db2dc9 /library/msgcat/msgcat.tcl
parent573f9fd80810dede88587f8ec61fb5cbb4a100b8 (diff)
downloadtcl-67acc8945524908e6b8e9e1f8b1f949d3a146e11.zip
tcl-67acc8945524908e6b8e9e1f8b1f949d3a146e11.tar.gz
tcl-67acc8945524908e6b8e9e1f8b1f949d3a146e11.tar.bz2
Whitespace reduction in Tcl scripts. No functional change.
Diffstat (limited to 'library/msgcat/msgcat.tcl')
-rw-r--r--library/msgcat/msgcat.tcl14
1 files changed, 7 insertions, 7 deletions
diff --git a/library/msgcat/msgcat.tcl b/library/msgcat/msgcat.tcl
index 5ed9f3a..a43f13e 100644
--- a/library/msgcat/msgcat.tcl
+++ b/library/msgcat/msgcat.tcl
@@ -262,7 +262,7 @@ proc msgcat::mcexists {args} {
}
}
set src [lindex $args 0]
-
+
while {$ns ne ""} {
foreach loc $loclist {
if {[dict exists $Msgs $ns $loc $src]} {
@@ -305,7 +305,7 @@ proc msgcat::mclocale {args} {
}
if {[lindex $Loclist 0] ne $newLocale} {
set Loclist [GetPreferences $newLocale]
-
+
# locale not loaded jet
LoadAll $Loclist
# Invoke callback
@@ -463,7 +463,7 @@ proc msgcat::mcpackagelocale {subcommand {locale ""}} {
set locale [string tolower $locale]
}
set ns [uplevel 1 {::namespace current}]
-
+
switch -exact -- $subcommand {
get { return [lindex [PackagePreferences $ns] 0] }
preferences { return [PackagePreferences $ns] }
@@ -646,7 +646,7 @@ proc msgcat::mcpackageconfig {subcommand option {value ""}} {
isset { return [dict exists $PackageConfig $option $ns] }
unset { dict unset PackageConfig $option $ns }
set { # Set option
-
+
if {$option eq "mcfolder"} {
set value [file normalize $value]
}
@@ -779,7 +779,7 @@ proc msgcat::LoadAll {locales} {
set locales [ListComplement $LoadedLocales $locales]
if {0 == [llength $locales]} { return {} }
lappend LoadedLocales {*}$locales
-
+
set packages [lsort -unique [concat\
[dict keys [dict get $PackageConfig loadcmd]]\
[dict keys [dict get $PackageConfig mcfolder]]]]
@@ -812,14 +812,14 @@ proc msgcat::Load {ns locales {callbackonly 0}} {
# Invoke callback
Invoke loadcmd $locales $ns
-
+
if {$callbackonly || ![dict exists $PackageConfig mcfolder $ns]} {
return 0
}
# Invoke file load
set langdir [dict get $PackageConfig mcfolder $ns]
-
+
# Save the file locale if we are recursively called
if {[info exists FileLocale]} {
set nestedFileLocale $FileLocale