diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 17:18:32 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 17:18:32 (GMT) |
| commit | a93fc665255dad6ed3709382516517fa6984a89e (patch) | |
| tree | 4874854e56b253aa3e244b8d11ac745f5a9bcdd9 /generic/tclOOScript.h | |
| parent | a83fb66df9efd409bf5b52860e816152d1443f8f (diff) | |
| download | tcl-a93fc665255dad6ed3709382516517fa6984a89e.zip tcl-a93fc665255dad6ed3709382516517fa6984a89e.tar.gz tcl-a93fc665255dad6ed3709382516517fa6984a89e.tar.bz2 | |
Speed up TclOO init; no directing via unknown method handler for slots of classes we define ourselves (backport)
Diffstat (limited to 'generic/tclOOScript.h')
| -rw-r--r-- | generic/tclOOScript.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclOOScript.h b/generic/tclOOScript.h index 7b8a69d..a9b262c 100644 --- a/generic/tclOOScript.h +++ b/generic/tclOOScript.h @@ -210,8 +210,8 @@ static const char *tclOOSetupScript = "\t\t::oo::UpdateClassDelegatesAfterClone $originObject [self]\n" "\t}\n" "\tclass create singleton {\n" -"\t\tsuperclass class\n" -"\t\tvariable object\n" +"\t\tsuperclass -set class\n" +"\t\tvariable -set object\n" "\t\tunexport create createWithNamespace\n" "\t\tmethod new args {\n" "\t\t\tif {![info exists object] || ![info object isa object $object]} {\n" @@ -231,7 +231,7 @@ static const char *tclOOSetupScript = "\t\t}\n" "\t}\n" "\tclass create abstract {\n" -"\t\tsuperclass class\n" +"\t\tsuperclass -set class\n" "\t\tunexport create createWithNamespace new\n" "\t}\n" "\tnamespace eval configuresupport::configurableclass {\n" @@ -249,7 +249,7 @@ static const char *tclOOSetupScript = "\t\tdefinitionnamespace -class configuresupport::configurableclass\n" "\t}\n" "\tclass create configurable {\n" -"\t\tsuperclass class\n" +"\t\tsuperclass -set class\n" "\t\tconstructor {{definitionScript \"\"}} {\n" "\t\t\tnext {mixin ::oo::configuresupport::configurable}\n" "\t\t\tnext $definitionScript\n" |