From 102d340fa6a18773ccc29cb792c78c0775f704ab Mon Sep 17 00:00:00 2001 From: dkf Date: Fri, 22 Aug 2025 19:30:49 +0000 Subject: Tweak to [configurable] to not call [next] twice (backport) --- generic/tclOOScript.h | 2 +- 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 } -- cgit v0.12