1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
|
if {[catch {
# Tricky point: [self class] needs to run in the caller
set ns [namespace qualifiers [uplevel 1 {self class}]]
}]} {
# Not a class-defined method (so we got an error); use instance instead
set ns [namespace qualifiers [uplevel 1 self]]
}
tailcall apply [list {cmd args} {tailcall $cmd {*}$args} $ns] $cmd
}
# Initialize the default locale
proc msgcat::Init {} {
global env
#
|
|
>
>
|
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
|
if {[catch {
# Tricky point: [self class] needs to run in the caller
set ns [namespace qualifiers [uplevel 1 {self class}]]
}]} {
# Not a class-defined method (so we got an error); use instance instead
set ns [namespace qualifiers [uplevel 1 self]]
}
apply [list {cmd args} {$cmd {*}$args} $ns] $cmd {*}$args
# DKF: alternative - one may give a better error trace
# namespace eval ::$ns [list $cmd {*}$args]
}
# Initialize the default locale
proc msgcat::Init {} {
global env
#
|