diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 19:28:48 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 19:28:48 (GMT) |
| commit | 538ca551b7a17836f31775f41ca46227a6c2ea10 (patch) | |
| tree | e2fcdce23eaaa1ad27028dc1781e18c1c213fdeb /generic/tclOOScript.h | |
| parent | 10b1362daa6a99d02ce1f417bb2643f1fc6fa89d (diff) | |
| download | tcl-538ca551b7a17836f31775f41ca46227a6c2ea10.zip tcl-538ca551b7a17836f31775f41ca46227a6c2ea10.tar.gz tcl-538ca551b7a17836f31775f41ca46227a6c2ea10.tar.bz2 | |
Move another definition (classmethod) into C. (backport)
Diffstat (limited to 'generic/tclOOScript.h')
| -rw-r--r-- | generic/tclOOScript.h | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/generic/tclOOScript.h b/generic/tclOOScript.h index f7b023e..79379d3 100644 --- a/generic/tclOOScript.h +++ b/generic/tclOOScript.h @@ -41,19 +41,6 @@ static const char *tclOOSetupScript = "\t\t\t\t}]\n" "\t\t}\n" "\t}\n" -"\tproc define::classmethod {name args} {\n" -"\t\t::set argc [::llength [::info level 0]]\n" -"\t\t::if {$argc == 3} {\n" -"\t\t\t::return -code error -errorcode {TCL WRONGARGS} [::format \\\n" -"\t\t\t\t{wrong # args: should be \"%s name \?args body\?\"} \\\n" -"\t\t\t\t[::lindex [::info level 0] 0]]\n" -"\t\t}\n" -"\t\t::set cls [::uplevel 1 self]\n" -"\t\t::if {$argc == 4} {\n" -"\t\t\t::oo::define [::oo::DelegateName $cls] method $name {*}$args\n" -"\t\t}\n" -"\t\t::tailcall forward $name myclass $name\n" -"\t}\n" "\tdefine Slot forward --default-operation my -append\n" "\tdefine Slot unexport destroy\n" "\tobjdefine define::superclass forward --default-operation my -set\n" |