anchor.diff:      procedure identifierToD2Syn;
       procedure saveCache;
       procedure loadCache;
  +    procedure setDefaultFontSize(aValue: Integer);
     protected
       procedure SetVisible(Value: Boolean); override;
       procedure SetHighlighter(const Value: TSynCustomHighlighter); override;
  
positive.code: begin
    inherited;
    if (Button = mbMiddle) and (Shift = [ssCtrl]) then
      Font.Size := fStoredFontSize
    //TODO-cLCL&LAZ-specific: test this feature under gtk2/linux on next release, should work
    else if Button = mbExtra1 then
      fPositions.back
  
negative.code:   if fileExists(fTempFileName) then
      sysutils.DeleteFile(fTempFileName);
    inherited;
  end;
  
  procedure TCESynMemo.setDefaultFontSize(aValue: Integer);
  var
    old: Integer;
  begin
    old := Font.Size;
    if aValue < 5 then aValue := 5;
    fDefaultFontSize:= aValue;
    if Font.Size = old then
      Font.Size := fDefaultFontSize;
  end;
  
  procedure TCESynMemo.setFocus;
  