Index: generic/gentclAPI.decls =================================================================== diff -u -re8f814e896b7aac8326f9abef3a5e759b2a4ed18 -rdf8c7c2f533ff443d9486b807c8c8a60d9f3b6fd --- generic/gentclAPI.decls (.../gentclAPI.decls) (revision e8f814e896b7aac8326f9abef3a5e759b2a4ed18) +++ generic/gentclAPI.decls (.../gentclAPI.decls) (revision df8c7c2f533ff443d9486b807c8c8a60d9f3b6fd) @@ -81,7 +81,7 @@ } xotclCmd relation XOTclRelationCmd { {-argName "object" -required 1 -type object} - {-argName "relationtype" -required 1 -type "mixin|instmixin|object-mixin|class-mixin|filter|instfilter|object-filter|class_filter|class|superclass|rootclass"} + {-argName "relationtype" -required 1 -type "mixin|instmixin|object-mixin|class-mixin|filter|instfilter|object-filter|class-filter|class|superclass|rootclass"} {-argName "value" -required 0 -type tclobj} } xotclCmd setinstvar XOTclSetInstvarCmd { Index: generic/tclAPI.h =================================================================== diff -u -re8f814e896b7aac8326f9abef3a5e759b2a4ed18 -rdf8c7c2f533ff443d9486b807c8c8a60d9f3b6fd --- generic/tclAPI.h (.../tclAPI.h) (revision e8f814e896b7aac8326f9abef3a5e759b2a4ed18) +++ generic/tclAPI.h (.../tclAPI.h) (revision df8c7c2f533ff443d9486b807c8c8a60d9f3b6fd) @@ -18,7 +18,7 @@ enum methodpropertyIdx {methodpropertyProtectedIdx, methodpropertyStaticIdx, methodpropertySlotobjIdx}; static int convertToRelationtype(Tcl_Interp *interp, Tcl_Obj *objPtr, XOTclParam CONST *pPtr, ClientData *clientData) { - static CONST char *opts[] = {"mixin", "instmixin", "object-mixin", "class-mixin", "filter", "instfilter", "object-filter", "class_filter", "class", "superclass", "rootclass", NULL}; + static CONST char *opts[] = {"mixin", "instmixin", "object-mixin", "class-mixin", "filter", "instfilter", "object-filter", "class-filter", "class", "superclass", "rootclass", NULL}; return Tcl_GetIndexFromObj(interp, objPtr, opts, "relationtype", 0, (int *)clientData); } enum relationtypeIdx {relationtypeMixinIdx, relationtypeInstmixinIdx, relationtypeObject_mixinIdx, relationtypeClass_mixinIdx, relationtypeFilterIdx, relationtypeInstfilterIdx, relationtypeObject_filterIdx, relationtypeClass_filterIdx, relationtypeClassIdx, relationtypeSuperclassIdx, relationtypeRootclassIdx}; @@ -2643,7 +2643,7 @@ }, {"::xotcl::relation", XOTclRelationCmdStub, 3, { {"object", 1, 0, convertToObject}, - {"mixin|instmixin|object-mixin|class-mixin|filter|instfilter|object-filter|class_filter|class|superclass|rootclass", 1, 0, convertToRelationtype}, + {"mixin|instmixin|object-mixin|class-mixin|filter|instfilter|object-filter|class-filter|class|superclass|rootclass", 1, 0, convertToRelationtype}, {"value", 0, 0, convertToTclobj}} }, {"::xotcl::setinstvar", XOTclSetInstvarCmdStub, 3, {