48 lines
762 B
Plaintext
48 lines
762 B
Plaintext
import extensions;
|
|
import system'routines;
|
|
|
|
class Operable
|
|
{
|
|
Operable = self;
|
|
|
|
operate()
|
|
= "delegate implementation";
|
|
}
|
|
|
|
class Delegator
|
|
{
|
|
prop object Delegate;
|
|
|
|
constructor()
|
|
{
|
|
Delegate := nil
|
|
}
|
|
|
|
operate()
|
|
{
|
|
// if the object does not support "get&operable" message - returns nil
|
|
var operable := Delegate.Operable \ back:nil;
|
|
|
|
if (nil == operable)
|
|
{
|
|
^ "default implementation"
|
|
}
|
|
else
|
|
{
|
|
^ operable.operate()
|
|
}
|
|
}
|
|
}
|
|
|
|
public program()
|
|
{
|
|
var delegator := new Delegator();
|
|
|
|
new::(nil, new Object(), new Operable()).forEach:(o)
|
|
{
|
|
delegator.Delegate := o;
|
|
|
|
console.printLine(delegator.operate())
|
|
}
|
|
}
|