diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 19:30:49 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 19:30:49 (GMT) |
| commit | 102d340fa6a18773ccc29cb792c78c0775f704ab (patch) | |
| tree | a346a97accedabdfd7ae190e33196556b4cb0426 /generic/tclOOScript.h | |
| parent | 05ad3060a8dd619bdd049fe4e312269f20b1ac66 (diff) | |
| download | tcl-102d340fa6a18773ccc29cb792c78c0775f704ab.zip tcl-102d340fa6a18773ccc29cb792c78c0775f704ab.tar.gz tcl-102d340fa6a18773ccc29cb792c78c0775f704ab.tar.bz2 | |
Tweak to [configurable] to not call [next] twice (backport)
Diffstat (limited to 'generic/tclOOScript.h')
| -rw-r--r-- | generic/tclOOScript.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclOOScript.h b/generic/tclOOScript.h index 0bec4fa..318a7ac 100644 --- a/generic/tclOOScript.h +++ b/generic/tclOOScript.h @@ -115,7 +115,7 @@ static const char *tclOOSetupScript = "\tclass create configurable\n" "\tdefine configurable superclass -set class\n" "\tdefine configurable constructor {{definitionScript \"\"}} {\n" -"\t\tnext {mixin ::oo::configuresupport::configurable}\n" +"\t\too::define [self] {mixin -append ::oo::configuresupport::configurable}\n" "\t\tnext $definitionScript\n" "\t}\n" "\tdefine configurable definitionnamespace -class configuresupport::configurableclass\n" |