Index: generic/gentclAPI.decls =================================================================== diff -u -r6c7f27084c9ec8964db4fb29623fa956aaf65999 -r2ce14fba0764a9fcbbe7cc2f582472526a58ddf0 --- generic/gentclAPI.decls (.../gentclAPI.decls) (revision 6c7f27084c9ec8964db4fb29623fa956aaf65999) +++ generic/gentclAPI.decls (.../gentclAPI.decls) (revision 2ce14fba0764a9fcbbe7cc2f582472526a58ddf0) @@ -8,7 +8,7 @@ xotclCmd "::xotcl" objectMethod "::xotcl::cmd::Object" classMethod "::xotcl::cmd::Class" - checkMethod "::xotcl::cmd::NonposArgs" + checkMethod "::xotcl::cmd::ParameterType" infoClassMethod "::xotcl::cmd::ClassInfo" infoObjectMethod "::xotcl::cmd::ObjectInfo" } @@ -36,6 +36,12 @@ {-argName "oldCmd" -required 1} {-argName "newCmd" -required 0} } +xotclCmd dispatch XOTclDispatchCmd { + {-argName "object" -required 1 -type object} + {-argName "methodName" -required 1} + {-argName "-objscope"} + {-argName "args" -type args} +} xotclCmd finalize XOTclFinalizeObjCmd { } xotclCmd instvar XOTclInstvarCmd { @@ -145,6 +151,11 @@ objectMethod procsearch XOTclOProcSearchMethod { {-argName "name" -required 1} } +# "set" needed? +objectMethod set XOTclOSetMethod { + {-argName "var" -required 1 -type tclobj} + {-argName "value" -type tclobj} +} objectMethod requireNamespace XOTclORequireNamespaceMethod { } objectMethod setvalues XOTclOSetvaluesMethod {