Index: TODO =================================================================== diff -u -re570f0508ee82bd7aeea0409c64855bb99ea5cee -r046e5f798cbb4ce5473fb11da8e63a3db998a376 --- TODO (.../TODO) (revision e570f0508ee82bd7aeea0409c64855bb99ea5cee) +++ TODO (.../TODO) (revision 046e5f798cbb4ce5473fb11da8e63a3db998a376) @@ -2810,6 +2810,11 @@ * included "delete method" * included "delete attribute" +- nsf.c: NsfRelationCmd() returns per default list of actual + values, therefore mixin add|... return now as well the + actual values + + TODO: - add "link" form 2.4 (parameters) to "info parameters" Index: generic/nsf.c =================================================================== diff -u -re29434ffef30bea10b7422f1f295787d41377839 -r046e5f798cbb4ce5473fb11da8e63a3db998a376 --- generic/nsf.c (.../nsf.c) (revision e29434ffef30bea10b7422f1f295787d41377839) +++ generic/nsf.c (.../nsf.c) (revision 046e5f798cbb4ce5473fb11da8e63a3db998a376) @@ -10681,8 +10681,7 @@ slotContainerObject = GetObjectFromString(interp, Tcl_DStringValue(dsPtr)); if (slotContainerObject && slotContainerObject->nsPtr && - (slotContainerObject->flags & NSF_IS_SLOT_CONTAINER) && - 1) { + (slotContainerObject->flags & NSF_IS_SLOT_CONTAINER)) { Tcl_HashSearch hSrch; Tcl_HashEntry *hPtr; Tcl_HashTable *cmdTablePtr = Tcl_Namespace_cmdTablePtr(slotContainerObject->nsPtr); @@ -17038,6 +17037,7 @@ MixinComputeDefined(interp, object); FilterComputeDefined(interp, object); + break; } @@ -17109,6 +17109,7 @@ break; } + NsfRelationCmd(interp, object, relationtype, NULL); return TCL_OK; }