diff options
author | dgp <dgp@noemail.net> | 2014-08-19 13:39:19 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2014-08-19 13:39:19 (GMT) |
commit | 3570b39d824fb1531e88afeedb345ae91943c1c5 (patch) | |
tree | 5e0ebd304bb83cf13185eece950f88d54b961e2f /generic | |
parent | cd7b97d10bad916a265a553f51c6bce5b62be5f4 (diff) | |
parent | 1a69d2721862f3e2e99f769a6503835b5f36cd1b (diff) | |
download | tcl-3570b39d824fb1531e88afeedb345ae91943c1c5.zip tcl-3570b39d824fb1531e88afeedb345ae91943c1c5.tar.gz tcl-3570b39d824fb1531e88afeedb345ae91943c1c5.tar.bz2 |
merge trunk
FossilOrigin-Name: 05909b3cb34e077987b25e7fd2f1c3be59a00099
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclOO.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index 02e00c9..ace47fe 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -394,6 +394,7 @@ InitFoundation( fPtr->classCls->flags |= ROOT_CLASS; TclOOAddToInstances(fPtr->objectCls->thisPtr, fPtr->classCls); TclOOAddToInstances(fPtr->classCls->thisPtr, fPtr->classCls); + TclOOAddToSubclasses(fPtr->classCls, fPtr->objectCls); AddRef(fPtr->objectCls->thisPtr); AddRef(fPtr->objectCls); |