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:   clearOutOfRangeMessg;
  end;
  
  procedure TCEMessagesWidget.optset_MaxMessageCount(aReader: TReader);
  begin
    maxMessageCount := aReader.ReadInteger;
  end;
  
  procedure TCEMessagesWidget.optget_MaxMessageCount(aWriter: TWriter);
  begin
    aWriter.WriteInteger(fMaxMessCnt);
  end;
  
  procedure TCEMessagesWidget.optset_AutoSelect(aReader: TReader);
  begin
    fAutoSelect := aReader.ReadBoolean;
    fActAutoSel.Checked := fAutoSelect;
  end;
  
  procedure TCEMessagesWidget.optget_AutoSelect(aWriter: TWriter);
  begin
    aWriter.WriteBoolean(fAutoSelect);
  end;
  
  procedure TCEMessagesWidget.sesoptDeclareProperties(aFiler: TFiler);
  begin
    inherited;
    aFiler.DefineProperty(Name + '_MaxMessageCount', @optset_MaxMessageCount,
      @optget_MaxMessageCount, true);
    aFiler.DefineProperty(Name + '_AutoSelectCategory', @optset_AutoSelect,
      @optget_AutoSelect, true);
  end;
  {$ENDREGION}
  
  
negative.code:   private
      fMaxCount: Integer;
      fAutoSelect: boolean;
      fFont: TFont;
      procedure setFont(aValue: TFont);
    published
      property maxMessageCount: integer read fMaxCount write fMaxCount;
      property autoSelect: boolean read fAutoSelect write fAutoSelect;
      property font: TFont read fFont write setFont;
    public
      constructor Create(AOwner: TComponent); override;
      destructor destroy; override;
      procedure assign(Source: TPersistent); override;
      procedure AssignTo(Dest: TPersistent); override;
    end;
  
    TCEMessagesWidget = class(TCEWidget, ICEEditableOptions, ICEMultiDocObserver, ICEProjectObserver, ICEMessagesDisplay)
  