anchor.diff:      FHScrollBar: TfpgScrollBar;
       FWrapping: boolean;
       FLongestLineWidth: TfpgCoord;
  +    FPopupMenu: TfpgPopupMenu;
       function    GetFontDesc: string;
       procedure   SetFontDesc(const AValue: string);
       procedure   RecalcLongestLine;
  
positive.code:     procedure   HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState); override;
      procedure   HandleResize(dwidth, dheight: integer); override;
      procedure   HandleMouseScroll(x, y: integer; shiftstate: TShiftState; delta: smallint); override;
  
negative.code:     property    TabWidth: integer read FTabWidth write FTabWidth;
      property    Text: TfpgString read GetText write SetText;
      property    UseTabs: boolean read FUseTabs write FUseTabs default False;
      property    PopupMenu: TfpgPopupMenu read FPopupMenu write FPopupMenu;
    published
      property    BackgroundColor default clBoxColor;
      property    FontDesc: string read GetFontDesc write SetFontDesc;
  