Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | amend to [48d5801f5a]: remove header declaration |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
6fae71f276af4ad9d553053e4d6d80b9 |
| User & Date: | sebres 2019-11-05 15:46:46.727 |
Context
|
2019-11-20
| ||
| 16:39 | TEA update check-in: c2637b44af user: dgp tags: trunk, itcl-4-2-0 | |
|
2019-11-05
| ||
| 15:46 | amend to [48d5801f5a]: remove header declaration check-in: 6fae71f276 user: sebres tags: trunk | |
| 14:30 | Remove internal routine Itcl_CreateMethodVariable (name is deceptive) which no longer has callers check-in: 48d5801f5a user: dgp tags: trunk | |
Changes
Changes to generic/itclClass.c.
| ︙ | ︙ | |||
2098 2099 2100 2101 2102 2103 2104 |
Itcl_PreserveData(ioptPtr);
Itcl_EventuallyFree(ioptPtr, (Tcl_FreeProc *) ItclDeleteOption);
return TCL_OK;
}
/*
* ------------------------------------------------------------------------
| | | 2098 2099 2100 2101 2102 2103 2104 2105 2106 2107 2108 2109 2110 2111 2112 |
Itcl_PreserveData(ioptPtr);
Itcl_EventuallyFree(ioptPtr, (Tcl_FreeProc *) ItclDeleteOption);
return TCL_OK;
}
/*
* ------------------------------------------------------------------------
* ItclCreateMethodVariable()
*
* Creates a new class methdovariable definition. If this is a public
* methodvariable,
*
* Returns TCL_ERROR along with an error message in the specified
* interpreter if anything goes wrong. Otherwise, this returns
* TCL_OK and a pointer to the new option definition in "imvPtr".
|
| ︙ | ︙ |
Changes to generic/itclInt.h.
| ︙ | ︙ | |||
715 716 717 718 719 720 721 | MODULE_SCOPE int ItclSetParserResolver(Tcl_Namespace *nsPtr); MODULE_SCOPE void ItclProcErrorProc(Tcl_Interp *interp, Tcl_Obj *procNameObj); MODULE_SCOPE int Itcl_CreateOption (Tcl_Interp *interp, ItclClass *iclsPtr, ItclOption *ioptPtr); MODULE_SCOPE int ItclCreateMethodVariable(Tcl_Interp *interp, ItclVariable *ivPtr, Tcl_Obj* defaultPtr, Tcl_Obj* callbackPtr, ItclMethodVariable** imvPtrPtr); | < < < | 715 716 717 718 719 720 721 722 723 724 725 726 727 728 |
MODULE_SCOPE int ItclSetParserResolver(Tcl_Namespace *nsPtr);
MODULE_SCOPE void ItclProcErrorProc(Tcl_Interp *interp, Tcl_Obj *procNameObj);
MODULE_SCOPE int Itcl_CreateOption (Tcl_Interp *interp, ItclClass *iclsPtr,
ItclOption *ioptPtr);
MODULE_SCOPE int ItclCreateMethodVariable(Tcl_Interp *interp,
ItclVariable *ivPtr, Tcl_Obj* defaultPtr, Tcl_Obj* callbackPtr,
ItclMethodVariable** imvPtrPtr);
MODULE_SCOPE int DelegationInstall(Tcl_Interp *interp, ItclObject *ioPtr,
ItclClass *iclsPtr);
MODULE_SCOPE ItclClass *ItclNamespace2Class(Tcl_Namespace *nsPtr);
MODULE_SCOPE const char* ItclGetCommonInstanceVar(Tcl_Interp *interp,
const char *name, const char *name2, ItclObject *contextIoPtr,
ItclClass *contextIclsPtr);
MODULE_SCOPE int ItclCreateMethod(Tcl_Interp* interp, ItclClass *iclsPtr,
|
| ︙ | ︙ |