diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-08-19 13:39:19 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-08-19 13:39:19 (GMT) |
| commit | 5aefcd8ccd46a28f3f4d101bf42da1879948870f (patch) | |
| tree | 1eeaa8a2d142df7f9b6c5cdf9a8a8957fcb72f2d /generic/tclOO.c | |
| parent | 161b13957be6938d14b413a3a7278044aa8e13c2 (diff) | |
| parent | 1c058969f08127a16e91339f83fc824493ac28cb (diff) | |
| download | tcl-5aefcd8ccd46a28f3f4d101bf42da1879948870f.zip tcl-5aefcd8ccd46a28f3f4d101bf42da1879948870f.tar.gz tcl-5aefcd8ccd46a28f3f4d101bf42da1879948870f.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclOO.c')
| -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); |