diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 14:23:56 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2025-08-22 14:23:56 (GMT) |
| commit | 800194c7f4ddd68ec444f5a350867e546283e35c (patch) | |
| tree | 573122d9fa40ca3f6f74dbcd70f4b3ca939e6d30 | |
| parent | eb5871174066e297e0975aa323f7fb1b37c2fcbe (diff) | |
| download | tcl-800194c7f4ddd68ec444f5a350867e546283e35c.zip tcl-800194c7f4ddd68ec444f5a350867e546283e35c.tar.gz tcl-800194c7f4ddd68ec444f5a350867e546283e35c.tar.bz2 | |
Tweak to [configurable] to not call [next] twice
| -rw-r--r-- | generic/tclOOScript.h | 2 | ||||
| -rw-r--r-- | tools/tclOOScript.tcl | 2 |
2 files changed, 2 insertions, 2 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" diff --git a/tools/tclOOScript.tcl b/tools/tclOOScript.tcl index d871d57..66e125d 100644 --- a/tools/tclOOScript.tcl +++ b/tools/tclOOScript.tcl @@ -232,7 +232,7 @@ class create configurable define configurable superclass -set class define configurable constructor {{definitionScript ""}} { - next {mixin ::oo::configuresupport::configurable} + ::oo::define [self] {mixin -append ::oo::configuresupport::configurable} next $definitionScript } |