diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-11-19 17:29:12 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-11-19 17:29:12 (GMT) |
| commit | cc6faa155b3ac525cab5b017159361b62c4a9c6a (patch) | |
| tree | 7fcee0f1e0eb5fa165d2af2f118b1cd52c6352f8 /generic/tclOOScript.h | |
| parent | 274d86b2ec1d33d42ce059946338c6e6e1086ea8 (diff) | |
| parent | 1fae54c8c004d072d62e3d867ef4e66b238d0bcd (diff) | |
| download | tcl-cc6faa155b3ac525cab5b017159361b62c4a9c6a.zip tcl-cc6faa155b3ac525cab5b017159361b62c4a9c6a.tar.gz tcl-cc6faa155b3ac525cab5b017159361b62c4a9c6a.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclOOScript.h')
| -rw-r--r-- | generic/tclOOScript.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclOOScript.h b/generic/tclOOScript.h index 2213ce3..ab637dd 100644 --- a/generic/tclOOScript.h +++ b/generic/tclOOScript.h @@ -98,9 +98,9 @@ static const char *tclOOSetupScript = "\t\t\tif {![info object isa class $d]} {\n" "\t\t\t\tcontinue\n" "\t\t\t}\n" -"\t\t\tdefine $delegate superclass -append $d\n" +"\t\t\tdefine $delegate ::oo::define::superclass -append $d\n" "\t\t}\n" -"\t\tobjdefine $class mixin -append $delegate\n" +"\t\tobjdefine $class ::oo::objdefine::mixin -append $delegate\n" "\t}\n" "\tproc UpdateClassDelegatesAfterClone {originObject targetObject} {\n" "\t\tset originDelegate [DelegateName $originObject]\n" |