Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Adjust the frame management of Itk_PropagatePublicVar() to new expectations. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dgp-method-type |
| Files: | files | file ages | folders |
| SHA1: |
0893a4080af92736ce4f7910894ca2dc |
| User & Date: | dgp 2015-10-21 18:14:22 |
Context
|
2015-10-22
| ||
| 13:56 | Get the namespace contexts right for configure method and friends. check-in: bdbf1878b9 user: dgp tags: dgp-method-type | |
|
2015-10-21
| ||
| 18:14 | Adjust the frame management of Itk_PropagatePublicVar() to new expectations. check-in: 0893a4080a user: dgp tags: dgp-method-type | |
|
2015-08-04
| ||
| 17:51 | Don't free buffer before we're done reading from it. check-in: a1eaab006b user: dgp tags: dgp-method-type | |
Changes
Changes to generic/itkArchBase.c.
1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 |
ItclObject *contextObj, /* itcl object being configured */
ClientData cdata, /* command prefix to use for configuration */
CONST char *newval) /* new value for this option */
{
ItclVariable *ivPtr = (ItclVariable*)cdata;
Tcl_CallFrame frame;
int result;
CONST char *val;
ItclMemberCode *mcode;
/*
* Update the public variable with the new option value.
* There should already be a call frame installed for handling
* instance variables, but make sure that the namespace context
* is the most-specific class, so that the public variable can
* be found.
*/
result = Itcl_PushCallFrame(interp, &frame, contextObj->iclsPtr->nsPtr,
/*isProcCallFrame*/0);
if (result == TCL_OK) {
/*
* Casting away CONST of newval only to satisfy Tcl 8.3 and
* earlier headers.
*/
val = Tcl_SetVar2(interp, Tcl_GetString(ivPtr->fullNamePtr), (char *) NULL,
(char *) newval, TCL_LEAVE_ERR_MSG);
if (!val) {
result = TCL_ERROR;
}
Itcl_PopCallFrame(interp);
}
if (result != TCL_OK) {
char msg[256];
sprintf(msg, "\n (error in configuration of public variable \"%.100s\")", Tcl_GetString(ivPtr->fullNamePtr));
Tcl_AddErrorInfo(interp, msg);
return TCL_ERROR;
|
| > > > > |
1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 |
ItclObject *contextObj, /* itcl object being configured */
ClientData cdata, /* command prefix to use for configuration */
CONST char *newval) /* new value for this option */
{
ItclVariable *ivPtr = (ItclVariable*)cdata;
Tcl_CallFrame frame;
int result = TCL_OK;
CONST char *val;
ItclMemberCode *mcode;
/*
* Update the public variable with the new option value.
* There should already be a call frame installed for handling
* instance variables, but make sure that the namespace context
* is the most-specific class, so that the public variable can
* be found.
*/
#if 0
result = Itcl_PushCallFrame(interp, &frame, contextObj->iclsPtr->nsPtr,
/*isProcCallFrame*/0);
#endif
if (result == TCL_OK) {
/*
* Casting away CONST of newval only to satisfy Tcl 8.3 and
* earlier headers.
*/
val = Tcl_SetVar2(interp, Tcl_GetString(ivPtr->fullNamePtr), (char *) NULL,
(char *) newval, TCL_LEAVE_ERR_MSG);
if (!val) {
result = TCL_ERROR;
}
#if 0
Itcl_PopCallFrame(interp);
#endif
}
if (result != TCL_OK) {
char msg[256];
sprintf(msg, "\n (error in configuration of public variable \"%.100s\")", Tcl_GetString(ivPtr->fullNamePtr));
Tcl_AddErrorInfo(interp, msg);
return TCL_ERROR;
|