diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2018-10-28 12:48:53 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2018-10-28 12:48:53 (GMT) |
| commit | 56f89b98500c1b7f96c8c5eca2a349a77a3ffa65 (patch) | |
| tree | c78286e1ec08169ccec0bd5901b7880978ac917c /generic/tclOOScript.h | |
| parent | af5d98388ac96c197412d002421caaf3b0ed7949 (diff) | |
| download | tcl-56f89b98500c1b7f96c8c5eca2a349a77a3ffa65.zip tcl-56f89b98500c1b7f96c8c5eca2a349a77a3ffa65.tar.gz tcl-56f89b98500c1b7f96c8c5eca2a349a77a3ffa65.tar.bz2 | |
Test cases (and some fixes)
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" |