anchor.diff:      procedure step; override;
       procedure Draw; virtual;
       procedure Halt;
  -    function Handle( msg : IMessage ):boolean; virtual;
  +    function Send( msg : IMessage ):boolean; override;
       function GetVisible : boolean;
       function GetExists : boolean;
       function GetActive : boolean;
  
positive.code:     constructor Create;
      procedure Invoke( cmd : string );
      procedure Clear;
      function Handle( msg : IMessage ):boolean; override;
      procedure Draw; override;
      destructor Destroy; override;
    end;
  
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;
  