anchor.diff:    cmd_help  =  -6;
   
   type
  -  TActor = class (TVorTask, IActor)
  +  TActor = class (TVorunati<IMessage,void>, IActor)
       _active,           { wants update() }
       _alive,            { exists but not alive triggers gc }
       _visible,          { to allow hide/show }
  
positive.code:              end;
        else
          msg := TEvent.Create(evt_keydn, ord(ch));
  	if assigned(focus) and not focus.handle(msg) then
  	  pass; {--  TODO: global keymap --}
        end; { case }
    end;
  
negative.code:     procedure step; override;
      procedure Draw; virtual;
      procedure Halt;
      function Send( msg : IMessage ):boolean; override;
      function GetVisible : boolean;
      function GetExists : boolean;
      function GetActive : boolean;
  