anchor.diff:               end;
         else
           msg := TEvent.Create(evt_keydn, ord(ch));
  -        if assigned(focus) then
  -	  if (focus is TActor)
  -	    and not (focus as TActor).handle(msg)
  -	    then pass; {--  TODO: global keymap --}
  -	msg.Free;
  +	if assigned(focus) and not focus.handle(msg) then
  +	  pass; {--  TODO: global keymap --}
         end; { case }
     end;
   
  
positive.code:     _active := true;
      _exists := true;
      _visible := false;
    end;
  
  procedure TActor.Draw;
  
negative.code: 
    TMessage = class (TTagged, IMessage)
      sym : TSymbol;
      sender: IActor;
      args: TTuple;
    end;
  
  