14 lines
393 B
Plaintext
14 lines
393 B
Plaintext
( ( myClass
|
|
= (name=aClass)
|
|
( Method
|
|
= .out$(str$("Output from " !(its.name) ": " !arg))
|
|
)
|
|
(new=.!arg:?(its.name))
|
|
)
|
|
& (myClass.Method)$"Example of calling a 'class' method"
|
|
& new$(myClass,object1):?MyObject
|
|
& (MyObject..Method)$"Example of calling an instance method"
|
|
& !MyObject:?Alias
|
|
& (Alias..Method)$"Example of calling an instance method from an alias"
|
|
);
|