anchor.diff:      _active := true;
       _exists := true;
       _visible := false;
  +  end;
  +
  +function TActor.ToString;
  +  begin
  +    WriteStr(result, 'Actor(', self.ClassName, ')');
     end;
   
   procedure TActor.Draw;
  
positive.code: 
  procedure HandleKeys;
    var ch : char; msg:TEvent;
    begin
      // TODO: without this next line (at least on freebsd)
      // it won't readkey. why not!?!
  
negative.code:   world := TWorld.Create;
    focus := TShellMorph.Create;
    world.add(focus);
    launch(world);
  
  finalization
  
  