Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Comment updated |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | tip490-msgcat-oo-2 |
| Files: | files | file ages | folders |
| SHA3-256: |
8e666511a80f4630e770535d25684771 |
| User & Date: | oehhar 2018-01-16 14:53:41 |
Context
|
2018-03-12
| ||
| 13:48 | msgcat 1.7 uses [tailcall], so requires Tcl 8.6. Closed-Leaf check-in: 699af4b725 user: dgp tags: tip490-msgcat-oo-2 | |
|
2018-01-16
| ||
| 14:53 | Comment updated check-in: 8e666511a8 user: oehhar tags: tip490-msgcat-oo-2 | |
| 14:13 | Solve case where msgcat is called within a class definition script (works only for 8.7) check-in: 106a596741 user: oehhar tags: tip490-msgcat-oo-2 | |
Changes
Changes to library/msgcat/msgcat.tcl.
| ︙ | ︙ | |||
1140 1141 1142 1143 1144 1145 1146 |
if {[string length $modifier]} {
append ret _$modifier
}
return $ret
}
# helper function to find package namespace of stack-frame -2
| | > | | 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 |
if {[string length $modifier]} {
append ret _$modifier
}
return $ret
}
# helper function to find package namespace of stack-frame -2
# There are 4 possibilities:
# - called from a proc
# - called within a class definition script
# - called from an class defined oo object
# - called from a classless oo object
proc ::msgcat::PackageNamespaceGet {} {
uplevel 2 {
# Check for no object
switch -exact -- [namespace which self] {
{::oo::define::self} {
# We are within a class definition
|
| ︙ | ︙ |