diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 15:02:51 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 15:02:51 (GMT) |
| commit | 63e9714b2ebee7046c5a8506b54e836c3f567a86 (patch) | |
| tree | 1c8bae086c3f220ddcdbd01a5918adc0c34dffd7 /generic/tclOOScript.h | |
| parent | cca1a031f796787ad1f40e39cf6d88c163c41e6f (diff) | |
| download | tcl-63e9714b2ebee7046c5a8506b54e836c3f567a86.zip tcl-63e9714b2ebee7046c5a8506b54e836c3f567a86.tar.gz tcl-63e9714b2ebee7046c5a8506b54e836c3f567a86.tar.bz2 | |
Start making TclOO faster to initialise (backport)
Diffstat (limited to 'generic/tclOOScript.h')
| -rw-r--r-- | generic/tclOOScript.h | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/generic/tclOOScript.h b/generic/tclOOScript.h index 98fa20e..50d827f 100644 --- a/generic/tclOOScript.h +++ b/generic/tclOOScript.h @@ -30,14 +30,6 @@ static const char *tclOOSetupScript = "\t::namespace path {}\n" "\tnamespace eval Helpers {\n" "\t\tnamespace path {}\n" -"\t\tproc callback {method args} {\n" -"\t\t\tlist [uplevel 1 {::namespace which my}] $method {*}$args\n" -"\t\t}\n" -"\t\tnamespace export callback\n" -"\t\tnamespace eval tmp {namespace import ::oo::Helpers::callback}\n" -"\t\tnamespace export -clear\n" -"\t\trename tmp::callback mymethod\n" -"\t\tnamespace delete tmp\n" "\t\tproc classvariable {name args} {\n" "\t\t\tset ns [info object namespace [uplevel 1 {self class}]]\n" "\t\t\tforeach v [list $name {*}$args] {\n" |