anchor.diff:      _alive := false;
     end;
   
  -function TActor.Handle( msg : IMessage ):boolean;
  +function TActor.Send( msg : IMessage ):boolean;
     begin
       result := true;
       case msg.tag of
  
positive.code:     children.append(a);
    end;
  
  function TGroup.Handle( msg: IMessage ):boolean;
    var handled : boolean; i : byte = 0;
    begin
      handled := false;
      while not handled and (i < self.children.length) do
        begin
  	handled := self.children[i].handle(msg);
          inc(i);
        end;
      result := handled
  
negative.code:              end;
        else
          msg := TEvent.Create(evt_keydn, ord(ch));
  	if assigned(focus) and not focus.send(msg) then
  	  pass; {--  TODO: global keymap --}
        end; { case }
    end;
  