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