RosettaCodeData/Task/Delegates/Smalltalk/delegates-3.st

9 lines
131 B
Smalltalk

|d|
d := Delegator new.
d operation.
-> 'default implementation'
d delegate:(Thingy new).
d operation.
-> 'thingy implementation'