diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2014-08-17 15:23:49 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2014-08-17 15:23:49 (GMT) |
| commit | 1781a9d5fc8e8d7912afdbf7f620ea3fd89947e6 (patch) | |
| tree | 2a6eb020aa974d90a04c4220556ea8c3959bb93c /generic/tclOO.c | |
| parent | 67b6d053209102fb5d32a4984d3f17e1e408c75c (diff) | |
| download | tcl-1781a9d5fc8e8d7912afdbf7f620ea3fd89947e6.zip tcl-1781a9d5fc8e8d7912afdbf7f620ea3fd89947e6.tar.gz tcl-1781a9d5fc8e8d7912afdbf7f620ea3fd89947e6.tar.bz2 | |
[7d52e1101b] oo::object should know that oo::class is a subclass.
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); |