Select Code to Download

Object subclass: 'Point' instanceVariables: 'x y '

...
init
 x := Float new.
 y := Float new.

p := Point new.
p init.
p x: 1.5.
p y: 1.5.

my $p = bless {}, Point;
$p->init;
$p->x(1.5);
$p->y(1.5);

newX: xc Y: yc
 p := Point new.
...
 p x: xc.
 p y: yc.
 ^p

Point newX: 1.5 Y: 1.5.

sub init
{
...
    $object->init(@_);
    return $object;
}