diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-03 14:47:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-03 14:47:37 (GMT) |
| commit | e1d323bc1b41ad79581edc6fe40f4b0f688377ac (patch) | |
| tree | f9058725614f7fa93f3d889138066aae4033dcbd /generic/tclOODefineCmds.c | |
| parent | 7b688527d719054d95ce6e5313830d6dd9d50a25 (diff) | |
| download | tcl-e1d323bc1b41ad79581edc6fe40f4b0f688377ac.zip tcl-e1d323bc1b41ad79581edc6fe40f4b0f688377ac.tar.gz tcl-e1d323bc1b41ad79581edc6fe40f4b0f688377ac.tar.bz2 | |
TIP #666 implementation
Diffstat (limited to 'generic/tclOODefineCmds.c')
| -rw-r--r-- | generic/tclOODefineCmds.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclOODefineCmds.c b/generic/tclOODefineCmds.c index 686fd00..42c6637 100644 --- a/generic/tclOODefineCmds.c +++ b/generic/tclOODefineCmds.c @@ -2286,12 +2286,12 @@ TclOODefineSlots( if (slotObject == NULL) { continue; } - TclNewInstanceMethod(fPtr->interp, slotObject, getName, 0, + Tcl_NewInstanceMethod(fPtr->interp, slotObject, getName, 0, &slotInfoPtr->getterType, NULL); - TclNewInstanceMethod(fPtr->interp, slotObject, setName, 0, + Tcl_NewInstanceMethod(fPtr->interp, slotObject, setName, 0, &slotInfoPtr->setterType, NULL); if (slotInfoPtr->resolverType.callProc) { - TclNewInstanceMethod(fPtr->interp, slotObject, resolveName, 0, + Tcl_NewInstanceMethod(fPtr->interp, slotObject, resolveName, 0, &slotInfoPtr->resolverType, NULL); } } |