diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2018-07-07 08:22:13 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2018-07-07 08:22:13 (GMT) |
| commit | 5a06fd4bcf87ea7fc607798714be8886927c1b15 (patch) | |
| tree | 6ffa65c2d5a9d4677d5e7b335757e7809c0c60c7 /generic/tclOOScript.h | |
| parent | 969f9f571cda6f6b8db32f8b9cdf922715b37c43 (diff) | |
| download | tcl-5a06fd4bcf87ea7fc607798714be8886927c1b15.zip tcl-5a06fd4bcf87ea7fc607798714be8886927c1b15.tar.gz tcl-5a06fd4bcf87ea7fc607798714be8886927c1b15.tar.bz2 | |
Document the [myclass] command; someone might find it useful besides me.
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 d96ee76..4b58337 100644 --- a/generic/tclOOScript.h +++ b/generic/tclOOScript.h @@ -85,7 +85,7 @@ static const char *tclOOSetupScript = " ::oo::define [::oo::DelegateName $cls] method $name $args $body\n" " }\n" " # Make the connection by forwarding\n" -" tailcall forward $name { :my:class} $name\n" +" tailcall forward $name myclass $name\n" "}\n" "proc ::oo::MixinClassDelegates {class} {\n" |