diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 19:22:05 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 19:22:05 (GMT) |
| commit | 10b1362daa6a99d02ce1f417bb2643f1fc6fa89d (patch) | |
| tree | 67631c533882205198e33216e9169dabd24e0c04 /generic/tclOOScript.h | |
| parent | 0a21b6eed51f2f8acc6fcfd64559626b6c97b6d9 (diff) | |
| download | tcl-10b1362daa6a99d02ce1f417bb2643f1fc6fa89d.zip tcl-10b1362daa6a99d02ce1f417bb2643f1fc6fa89d.tar.gz tcl-10b1362daa6a99d02ce1f417bb2643f1fc6fa89d.tar.bz2 | |
Move [link] into C. (backport)
Diffstat (limited to 'generic/tclOOScript.h')
| -rw-r--r-- | generic/tclOOScript.h | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/generic/tclOOScript.h b/generic/tclOOScript.h index bd3721b..f7b023e 100644 --- a/generic/tclOOScript.h +++ b/generic/tclOOScript.h @@ -27,31 +27,6 @@ static const char *tclOOSetupScript = /* !BEGIN!: Do not edit below this line. */ "::namespace eval ::oo {\n" -"\tproc Helpers::link {args} {\n" -"\t\tset ns [uplevel 1 {::namespace current}]\n" -"\t\tforeach link $args {\n" -"\t\t\tif {[llength $link] == 2} {\n" -"\t\t\t\tlassign $link src dst\n" -"\t\t\t} elseif {[llength $link] == 1} {\n" -"\t\t\t\tlassign $link src\n" -"\t\t\t\tset dst $src\n" -"\t\t\t} else {\n" -"\t\t\t\treturn -code error -errorcode {TCL OO CMDLINK_FORMAT} \\\n" -"\t\t\t\t\t\"bad link description; must only have one or two elements\"\n" -"\t\t\t}\n" -"\t\t\tif {![string match ::* $src]} {\n" -"\t\t\t\tset src [string cat $ns :: $src]\n" -"\t\t\t}\n" -"\t\t\tinterp alias {} $src {} ${ns}::my $dst\n" -"\t\t\ttrace add command ${ns}::my delete [list \\\n" -"\t\t\t\t::oo::UnlinkLinkedCommand $src]\n" -"\t\t}\n" -"\t}\n" -"\tproc UnlinkLinkedCommand {cmd args} {\n" -"\t\tif {[namespace which $cmd] ne {}} {\n" -"\t\t\trename $cmd {}\n" -"\t\t}\n" -"\t}\n" "\tproc UpdateClassDelegatesAfterClone {originObject targetObject} {\n" "\t\tset originDelegate [DelegateName $originObject]\n" "\t\tset targetDelegate [DelegateName $targetObject]\n" |