Delegates: Difference between revisions
Content deleted Content added
m →{{header|Tcl}}: whitespace |
|||
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
cocurrent 'base'</lang>
|