anchor.diff:  procedure TCEMessagesWidget.listDeletion(Sender: TObject; Node: TTreeNode);
   begin
     if node.Data <> nil then
  -    Dispose( PMessageData(Node.Data));
  +    Dispose(PMessageData(Node.Data));
   end;
   
   procedure TCEMessagesWidget.ListKeyDown(Sender: TObject; var Key: Word;
  
positive.code:     procedure clearbyContext(aCtxt: TCEAppMessageCtxt);
      procedure clearbyData(aData: Pointer);
    protected
      procedure sesoptDeclareProperties(aFiler: TFiler); override;
      //
      function contextName: string; override;
      function contextActionCount: integer; override;
      function contextAction(index: integer): TAction; override;
    published
      property maxMessageCount: Integer read fMaxMessCnt write setMaxMessageCount default 125;
    public
      constructor create(aOwner: TComponent); override;
      destructor destroy; override;
      //
      procedure scrollToBack;
  
    end;
  
    function guessMessageKind(const aMessg: string): TCEAppMessageKind;
  
negative.code:     fCtxt := amcMisc;
    filterMessages(fCtxt);
  end;
  
  procedure TCEMessagesWidget.setMaxMessageCount(aValue: Integer);
  begin
    if aValue < 5 then
  