Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Similar changes to the PropagatePublicVariable machinery. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | experiment |
| Files: | files | file ages | folders |
| SHA1: |
0bd0be830c7c05e15aa0905fb6098306 |
| User & Date: | dgp 2017-07-27 16:31:38.425 |
Context
|
2017-07-28
| ||
| 15:57 | Take care that the right commands are resolved in the right namespaces. Closed-Leaf check-in: fd54e0d1dc user: dgp tags: experiment | |
|
2017-07-27
| ||
| 16:31 | Similar changes to the PropagatePublicVariable machinery. check-in: 0bd0be830c user: dgp tags: experiment | |
|
2017-07-25
| ||
| 20:35 | Attempt to make code say clearly what it does, instead of achieving so much with namespace context games. check-in: 4af9618d9b user: dgp tags: experiment | |
Changes
Changes to generic/itkArchBase.c.
| ︙ | ︙ | |||
1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605 1606 1607 1608 |
*/
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 (result != TCL_OK) {
| > > > > > > | 1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614 |
*/
if (result == TCL_OK) {
/*
* Casting away CONST of newval only to satisfy Tcl 8.3 and
* earlier headers.
*/
#if 1
val = ItclSetInstanceVar(interp, Tcl_GetString(ivPtr->fullNamePtr),
NULL, newval, contextObj, ivPtr->iclsPtr);
#else
val = Tcl_SetVar2(interp, Tcl_GetString(ivPtr->fullNamePtr), (char *) NULL,
(char *) newval, TCL_LEAVE_ERR_MSG);
#endif
if (!val) {
result = TCL_ERROR;
}
}
if (result != TCL_OK) {
|
| ︙ | ︙ | |||
1616 1617 1618 1619 1620 1621 1622 |
* If this variable has some "config" code, invoke it now.
*
* NOTE: Invoke the "config" code in the class scope
* containing the data member.
*/
mcode = ivPtr->codePtr;
if (mcode && mcode->bodyPtr) {
| > | | | | | > > | 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 |
* If this variable has some "config" code, invoke it now.
*
* NOTE: Invoke the "config" code in the class scope
* containing the data member.
*/
mcode = ivPtr->codePtr;
if (mcode && mcode->bodyPtr) {
Tcl_CallFrame frame;
Itcl_PushCallFrame(interp, &frame, ivPtr->iclsPtr->nsPtr, 1);
Itcl_SetContext(interp, contextObj);
result = Tcl_EvalObjEx(interp, mcode->bodyPtr, 0);
Itcl_UnsetContext(interp);
Itcl_PopCallFrame(interp);
if (result == TCL_OK) {
Tcl_ResetResult(interp);
} else {
char msg[256];
sprintf(msg, "\n (error in configuration of public variable \"%.100s\")", Tcl_GetString(ivPtr->fullNamePtr));
Tcl_AddErrorInfo(interp, msg);
|
| ︙ | ︙ |