anchor.diff:  
     TfpgGutter = class(TfpgWidget)
     private
  +    FOwner: TfpgBaseTextEdit; // convenience reference variable
       FDigits: Integer;
       FShowNum: Boolean;
       FSpace: Integer;
  
positive.code: function TfpgGutter.GetClientRect: TfpgRect;
  begin
    Result := inherited GetClientRect;
    Result.Width := Result.Width - 2; // bsRightLine takes up two pixels
  end;
  
  { TfpgBaseTextEdit }
  
negative.code: begin
    if not FShowNum then
      Exit; //==>
    w         := GetClientRect.Width - FSpace - 1;
    H         := FOwner.FChrH;
    MaxI      := FOwner.FVisLines;
    ltxtflags := [txtRight, txtVCenter];
    Canvas.SetFont(FOwner.FFont);
    r.SetRect(2, 0, W, H);
  
    for i := 0 to MaxI do
  