diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-06 13:34:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-06 13:34:52 (GMT) |
| commit | 0bddea7ffe81b29035b6856efda14eda7d508d66 (patch) | |
| tree | 9a5bf2cb27c2290d627b3f2b9ecc1c4c3ad64356 /generic/tclOOScript.h | |
| parent | 493585e80285a37fffbfa04f560a2d37a94d3322 (diff) | |
| download | tcl-0bddea7ffe81b29035b6856efda14eda7d508d66.zip tcl-0bddea7ffe81b29035b6856efda14eda7d508d66.tar.gz tcl-0bddea7ffe81b29035b6856efda14eda7d508d66.tar.bz2 | |
Move tclOOScript.tcl from the generic to the tools directory, so "make dist" can pick it up. Reported by Pietro Cerutti.
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" |