anchor.diff:    fpg_main,
     fpg_widget,
     fpg_popupwindow,
  +  fpg_menu,
     fpg_combobox;
   
   type
  
positive.code:   fpg_listbox,
    fpg_dialogs;
  
  var
    OriginalFocusRoot: TfpgWidget;
  
  
negative.code:     function    GetText: string; virtual;
      function    HasText: boolean; virtual;
      procedure   SetText(const AValue: string); virtual;
      procedure   ShowDefaultPopupMenu(const x, y: integer; const shiftstate: TShiftState); virtual;
      procedure   HandleResize(AWidth, AHeight: TfpgCoord); override;
      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   HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleRMouseDown(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleRMouseUp(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandlePaint; override;
      property    AutoCompletion: Boolean read FAutocompletion write FAutoCompletion default False;
      property    AllowNew: TAllowNew read FAllowNew write SetAllowNew default anNo;
  