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