diff options
| -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 } |