Tcl Source Code

Check-in [6c6bee903d]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:[91b3a5bb14] chw: the tests for mixin and typeof require more context (one additional parameter). Thus they must be left out
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | ticket-91b3a5bb14-msgcat-oo-method
Files: files | file ages | folders
SHA3-256: 6c6bee903dc57de0739c921ca4afd407ffca60bd9d08a464e5e3153245a177a1
User & Date: oehhar 2024-07-15 06:27:23.844
References
2024-07-15
06:30 Ticket [91b3a5bb14] msgcat with oo: error "self may only be called from inside a method" status still Open with 4 other changes artifact: 7bbfcdb573 user: oehhar
Context
2024-07-15
11:54
[91b3a5bb14] msgcat oo: revert fix check-in: 99e962ad0e user: oehhar tags: ticket-91b3a5bb14-msgcat-oo-method
06:27
[91b3a5bb14] chw: the tests for mixin and typeof require more context (one additional parameter). Th... check-in: 6c6bee903d user: oehhar tags: ticket-91b3a5bb14-msgcat-oo-method
2024-07-14
18:56
Ticket [91b3a5bb14]: msgcat call from method: proposal by Gregor in clt check-in: 23b57c266e user: oehhar tags: ticket-91b3a5bb14-msgcat-oo-method
Changes
Unified Diff Ignore Whitespace Patch
Changes to library/msgcat/msgcat.tcl.
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
    # Check if we are within an object
    if {[info object isa object $ns]} {
	return [info object namespace $ns]
    } elseif {[info object isa class $ns]} {
	return [info object namespace $ns]
    } elseif {[info object isa metaclass $ns]} {
	return [info object namespace $ns]
    } elseif {[info object isa mixin $ns]} {
	return [info object namespace $ns]
    } elseif {[info object isa typeof $ns]} {
	return [info object namespace $ns]
    } else {
	# Not in an object or class environment
	return $ns
    } }

# Initialize the default locale
proc msgcat::mcutil::getsystemlocale {} {







<
<
<
<







1230
1231
1232
1233
1234
1235
1236




1237
1238
1239
1240
1241
1242
1243
    # Check if we are within an object
    if {[info object isa object $ns]} {
	return [info object namespace $ns]
    } elseif {[info object isa class $ns]} {
	return [info object namespace $ns]
    } elseif {[info object isa metaclass $ns]} {
	return [info object namespace $ns]




    } else {
	# Not in an object or class environment
	return $ns
    } }

# Initialize the default locale
proc msgcat::mcutil::getsystemlocale {} {