Differences From Artifact [e2481bd59c]:

• File generic/tclOOInfo.c — part of check-in [b29b368aac] at 2024-08-28 16:42:07 on branch unchained — Merge [b0d8ee5168c1d19b]: Fix [36e5517a6850]: old style method selection in [info class methods] and [info object methods] still supported. (user: pooryorick size: 47802) [more...]

To Artifact [2b29a09147]:

• File generic/tclOOInfo.c — part of check-in [5e25f5c971] at 2024-08-28 21:41:57 on branch unchained — Merge [735641d5cb93cd80]: More C functions for working with dicts [656fe3c816]. (user: pooryorick size: 47714) [more...]

132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149

    /*
     * Install into the [info] ensemble.
     */

    infoCmd = Tcl_FindCommand(interp, "info", NULL, TCL_GLOBAL_ONLY);
    if (infoCmd) {
	Tcl_GetEnsembleMappingDict(NULL, infoCmd, &mapDict);
	Tcl_DictObjPut(NULL, mapDict, Tcl_NewStringObj("object", -1),
		Tcl_NewStringObj("::oo::InfoObject", -1));
	Tcl_DictObjPut(NULL, mapDict, Tcl_NewStringObj("class", -1),
		Tcl_NewStringObj("::oo::InfoClass", -1));
	Tcl_SetEnsembleMappingDict(interp, infoCmd, mapDict);
    }
}

/*
 * ----------------------------------------------------------------------
 *

<
|
<
|

132
133
134
135
136
137
138

139

140
141
142
143
144
145
146
147

    /*
     * Install into the [info] ensemble.
     */

    infoCmd = Tcl_FindCommand(interp, "info", NULL, TCL_GLOBAL_ONLY);
    if (infoCmd) {
	Tcl_GetEnsembleMappingDict(NULL, infoCmd, &mapDict);

	TclDictPutString(NULL, mapDict, "object", "::oo::InfoObject");

	TclDictPutString(NULL, mapDict, "class", "::oo::InfoClass");
	Tcl_SetEnsembleMappingDict(interp, infoCmd, mapDict);
    }
}

/*
 * ----------------------------------------------------------------------
 *