anchor.diff:      procedure   SetZeroStart(const AValue: Boolean);
     protected
       procedure   HandlePaint; override;
  +    procedure   HandleMouseScroll(x, y: integer; shiftstate: TShiftState; delta: smallint); override;
     public
       constructor CreateGutter(AOwner: TfpgBaseTextEdit);
       function    GetClientRect: TfpgRect; override;
  
positive.code: interface
  
  uses
    Classes, SysUtils, fpg_base, fpg_main, fpg_widget, fpg_panel,
    fpg_scrollbar;
  
  type
  
negative.code:     procedure   HandleMouseEnter; override;
      procedure   HandleMouseExit; override;
      procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleMouseScroll(x, y: integer; shiftstate: TShiftState; delta: smallint); override;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure   HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: boolean); override;
      { -- local widget functions -- }
  