diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 19:14:27 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 19:14:27 (GMT) |
| commit | 0a21b6eed51f2f8acc6fcfd64559626b6c97b6d9 (patch) | |
| tree | 5c4bca234ac38152afe65b993554fdd727475ba2 /generic/tclOOScript.h | |
| parent | 61e2cc66b9aa6f9aa0cb06dd99a5cdb118999c58 (diff) | |
| download | tcl-0a21b6eed51f2f8acc6fcfd64559626b6c97b6d9.zip tcl-0a21b6eed51f2f8acc6fcfd64559626b6c97b6d9.tar.gz tcl-0a21b6eed51f2f8acc6fcfd64559626b6c97b6d9.tar.bz2 | |
Convert MixinClassDelegates to an internal function entirely in C (backport)
Diffstat (limited to 'generic/tclOOScript.h')
| -rw-r--r-- | generic/tclOOScript.h | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/generic/tclOOScript.h b/generic/tclOOScript.h index 643e536..bd3721b 100644 --- a/generic/tclOOScript.h +++ b/generic/tclOOScript.h @@ -52,23 +52,6 @@ static const char *tclOOSetupScript = "\t\t\trename $cmd {}\n" "\t\t}\n" "\t}\n" -"\tproc MixinClassDelegates {class} {\n" -"\t\tif {![info object isa class $class]} {\n" -"\t\t\treturn\n" -"\t\t}\n" -"\t\tset delegate [DelegateName $class]\n" -"\t\tif {![info object isa class $delegate]} {\n" -"\t\t\treturn\n" -"\t\t}\n" -"\t\tforeach c [info class superclass $class] {\n" -"\t\t\tset d [DelegateName $c]\n" -"\t\t\tif {![info object isa class $d]} {\n" -"\t\t\t\tcontinue\n" -"\t\t\t}\n" -"\t\t\tdefine $delegate ::oo::define::superclass -appendifnew $d\n" -"\t\t}\n" -"\t\tobjdefine $class ::oo::objdefine::mixin -appendifnew $delegate\n" -"\t}\n" "\tproc UpdateClassDelegatesAfterClone {originObject targetObject} {\n" "\t\tset originDelegate [DelegateName $originObject]\n" "\t\tset targetDelegate [DelegateName $targetObject]\n" |