Index: generic/nsfAPI.decls =================================================================== diff -u -r551a41a1d6502070f966b5f0be2559cf3fe12804 -rc6057c18970d5bc19fe0f1f760ef0d29898ecfdd --- generic/nsfAPI.decls (.../nsfAPI.decls) (revision 551a41a1d6502070f966b5f0be2559cf3fe12804) +++ generic/nsfAPI.decls (.../nsfAPI.decls) (revision c6057c18970d5bc19fe0f1f760ef0d29898ecfdd) @@ -26,17 +26,6 @@ {-argName "configureoption" -required 1 -type "debug|dtrace|filter|profile|softrecreate|objectsystems|keepinitcmd|checkresults|checkarguments"} {-argName "value" -required 0 -type tclobj} } -cmd createobjectsystem NsfCreateObjectSystemCmd { - {-argName "rootClass" -required 1 -type tclobj} - {-argName "rootMetaClass" -required 1 -type tclobj} - {-argName "systemMethods" -required 0 -type tclobj} -} -cmd dispatch NsfDispatchCmd { - {-argName "object" -required 1 -type object} - {-argName "-frame" -required 0 -type "method|object|default" -default "default"} - {-argName "command" -required 1 -type tclobj} - {-argName "args" -type args} -} cmd colon NsfColonCmd { {-argName "args" -type allargs} } @@ -118,6 +107,12 @@ # # object cmds # +cmd "object::dispatch" NsfObjectDispatchCmd { + {-argName "object" -required 1 -type object} + {-argName "-frame" -required 0 -type "method|object|default" -default "default"} + {-argName "command" -required 1 -type tclobj} + {-argName "args" -type args} +} cmd "object::exists" NsfObjectExistsCmd { {-argName "value" -required 1 -type tclobj} } @@ -128,6 +123,14 @@ {-argName "objectName" -required 1 -type tclobj} } +# +# objectsystem cmds +# +cmd "objectsystem::create" NsfObjectSystemCreateCmd { + {-argName "rootClass" -required 1 -type tclobj} + {-argName "rootMetaClass" -required 1 -type tclobj} + {-argName "systemMethods" -required 0 -type tclobj} +} cmd my NsfMyCmd { {-argName "-local" -nrargs 0}