diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-07 15:39:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-07 15:39:37 (GMT) |
| commit | d6d77a73bef59053e103b7d28390ade0e651a8cc (patch) | |
| tree | 2b5525e94553d4e1348506e2c741cf863d9e8fcb /generic/tclOOScript.h | |
| parent | 9348f2301275b473b59425310f3ac4beb7e545c0 (diff) | |
| parent | 22c56e716cf046ee48897490b5b2264d8c9cb328 (diff) | |
| download | tcl-d6d77a73bef59053e103b7d28390ade0e651a8cc.zip tcl-d6d77a73bef59053e103b7d28390ade0e651a8cc.tar.gz tcl-d6d77a73bef59053e103b7d28390ade0e651a8cc.tar.bz2 | |
Merge 8.7
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 ab637dd..a1e4624 100644 --- a/generic/tclOOScript.h +++ b/generic/tclOOScript.h @@ -110,7 +110,7 @@ static const char *tclOOSetupScript = "\t\t\t&& ![info object isa class $targetDelegate]\n" "\t\t} then {\n" "\t\t\tcopy $originDelegate $targetDelegate\n" -"\t\t\tobjdefine $targetObject mixin -set \\\n" +"\t\t\tobjdefine $targetObject ::oo::objdefine::mixin -set \\\n" "\t\t\t\t{*}[lmap c [info object mixin $targetObject] {\n" "\t\t\t\t\tif {$c eq $originDelegate} {set targetDelegate} {set c}\n" "\t\t\t\t}]\n" |