9 lines
131 B
Smalltalk
9 lines
131 B
Smalltalk
|
|d|
|
||
|
|
d := Delegator new.
|
||
|
|
d operation.
|
||
|
|
-> 'default implementation'
|
||
|
|
|
||
|
|
d delegate:(Thingy new).
|
||
|
|
d operation.
|
||
|
|
-> 'thingy implementation'
|