Revision as of 15:10, 4 November 2010 view source rosettacode>Dkf m →‎{{header\|Tcl}}: whitespace ← Older edit		Revision as of 21:12, 9 November 2010 view source Rdm (talk \| contribs) 6,963 edits m →‎{{header\|J}} Newer edit →
Line 430: operation=:3 :'thing__delegate ::thing y' thing=: 'default implementation'"_ setDelegate=:3 :'delegate=:y' NB. result is the reference to our new delegate delegate=:<'delegator' Line 438: thing=: 'delegate implementation'"_ NB. set context ~~for~~in ~~interactive~~case ~~use~~this script was used interactively, instead of ~~this~~being ~~script:~~loaded cocurrent 'base'</lang>

Delegates: Difference between revisions