10 lines
199 B
Smalltalk
10 lines
199 B
Smalltalk
Object
|
|
subclass:#Delegator
|
|
instanceVariableNames:'delegate'
|
|
|
|
delegate:something
|
|
delegate := something
|
|
|
|
operation
|
|
^ delegate
|
|
perform:#thing ifNotUnderstood:'default implementation'.
|