Index: generic/xotclInt.h =================================================================== diff -u -r6c7f27084c9ec8964db4fb29623fa956aaf65999 -r2ce14fba0764a9fcbbe7cc2f582472526a58ddf0 --- generic/xotclInt.h (.../xotclInt.h) (revision 6c7f27084c9ec8964db4fb29623fa956aaf65999) +++ generic/xotclInt.h (.../xotclInt.h) (revision 2ce14fba0764a9fcbbe7cc2f582472526a58ddf0) @@ -451,17 +451,19 @@ /* * object and class internals */ +struct XOTclParam; +typedef int (XOTclTypeConverter)(Tcl_Interp *interp, Tcl_Obj *obj, + struct XOTclParam CONST *pPtr, ClientData *clientData); -typedef int (XOTclTypeConverter) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *obj, ClientData *clientData)); - -typedef struct { +typedef struct XOTclParam { char *name; int flags; int nrArgs; XOTclTypeConverter *converter; Tcl_Obj *defaultValue; char *type; Tcl_Obj *nameObj; + Tcl_Obj *arg; } XOTclParam; typedef struct XOTclParamDefs { @@ -550,7 +552,7 @@ XOTE_ZERO, XOTE_ONE, XOTE_MOVE, XOTE_SELF, XOTE_CLASS, XOTE_RECREATE, XOTE_SELF_CLASS, XOTE_SELF_PROC, XOTE_EXIT_HANDLER, XOTE_DEFAULTSUPERCLASS, XOTE_DEFAULTMETACLASS, - XOTE_NON_POS_ARGS_OBJ, XOTE_SETVALUES, + XOTE_PARAMETER_TYPE_OBJ, XOTE_SETVALUES, XOTE_CLEANUP, XOTE_CONFIGURE, XOTE_FILTER, XOTE_INSTFILTER, XOTE_INSTPROC, XOTE_PROC, XOTE_INSTFORWARD, XOTE_FORWARD, XOTE_INSTCMD, XOTE_CMD, XOTE_INSTPARAMETERCMD, XOTE_PARAMETERCMD, @@ -571,7 +573,7 @@ "0", "1", "move", "self", "class", "recreate", "self class", "self proc", "__exitHandler", "__default_superclass", "__default_metaclass", - "::xotcl::nonposArgs", "setvalues", + "::xotcl::parameterType", "setvalues", "cleanup", "configure", "filter", "instfilter", "instproc", "proc", "instforward", "forward", "instcmd", "cmd", "instparametercmd", "parametercmd",