diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2018-10-28 12:48:53 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2018-10-28 12:48:53 (GMT) |
| commit | 56f89b98500c1b7f96c8c5eca2a349a77a3ffa65 (patch) | |
| tree | c78286e1ec08169ccec0bd5901b7880978ac917c /generic/tclOOScript.tcl | |
| parent | af5d98388ac96c197412d002421caaf3b0ed7949 (diff) | |
| download | tcl-56f89b98500c1b7f96c8c5eca2a349a77a3ffa65.zip tcl-56f89b98500c1b7f96c8c5eca2a349a77a3ffa65.tar.gz tcl-56f89b98500c1b7f96c8c5eca2a349a77a3ffa65.tar.bz2 | |
Test cases (and some fixes)
Diffstat (limited to 'generic/tclOOScript.tcl')
| -rw-r--r-- | generic/tclOOScript.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclOOScript.tcl b/generic/tclOOScript.tcl index a48eab5..5e0145f 100644 --- a/generic/tclOOScript.tcl +++ b/generic/tclOOScript.tcl @@ -153,9 +153,9 @@ if {![info object isa class $d]} { continue } - define $delegate superclass -append $d + define $delegate ::oo::define::superclass -append $d } - objdefine $class mixin -append $delegate + objdefine $class ::oo::objdefine::mixin -append $delegate } # ---------------------------------------------------------------------- @@ -176,7 +176,7 @@ && ![info object isa class $targetDelegate] } then { copy $originDelegate $targetDelegate - objdefine $targetObject mixin -set \ + objdefine $targetObject ::oo::objdefine::mixin -set \ {*}[lmap c [info object mixin $targetObject] { if {$c eq $originDelegate} {set targetDelegate} {set c} }] |