Revision as of 15:05, 21 December 2015 (view source) rosettacode>Arakov (→‎{{header\|E}}) ← Older edit		Revision as of 15:04, 1 March 2016 (view source) Franck (talk \| contribs) (→‎{{header\|Oforth}}) Newer edit →
Line 1,345: =={{header\|Oforth}}== <lang Oforth>Object Class new: Delegate1 Object Class new: Delegate2 Delegate2 method: thing { "Delegate implementation" println }; Object Class new: Delegator(delegate) Delegator method: initialize { := delegate }; Delegator method: operation { @delegate respondTo(#thing) ifTrue: [ @delegate thing return ] "Default implementation" println ;</lang> ~~}</lang>~~ Usage :

Delegates (view source)