diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2018-07-01 16:39:11 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2018-07-01 16:39:11 (GMT) |
| commit | d11660acfec5e51e088b6e9661d3b6b8e0b1988a (patch) | |
| tree | 782e4d22dd859468068ba169beeaba9da4136994 /generic/tclOOScript.h | |
| parent | 5c7ba37901819efd8c30dee373dada97eafdce04 (diff) | |
| download | tcl-d11660acfec5e51e088b6e9661d3b6b8e0b1988a.zip tcl-d11660acfec5e51e088b6e9661d3b6b8e0b1988a.tar.gz tcl-d11660acfec5e51e088b6e9661d3b6b8e0b1988a.tar.bz2 | |
Create a special command, [ :my:class], (in each instance namespace) that allows objects to delegate methods to their class.
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 6dd105e..237bff5 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 [info object namespace $cls]::my $name\n" +" tailcall forward $name { :my:class} $name\n" "}\n" "proc ::oo::MixinClassDelegates {class} {\n" |