anchor.diff:      //
       // returns true if one of the three updater is processing.
       property updating: boolean read fUpdating;
  +    // true by default, allow a widget to be docked.
  +    property isDockable: boolean read fDockable;
     end;
   
     (**
  
positive.code:     procedure optget_UpdaterDelay(aWriter: TWriter);
      procedure optset_UpdaterDelay(aReader: TReader);
    protected
      fID: string;
      // a descendant overrides to implementi a periodic update.
      procedure UpdateByLoop; virtual;
  
negative.code:   itm: TmenuItem;
  begin
    inherited;
    fDockable := true;
    fUpdaterAuto := TTimer.Create(self);
    fUpdaterAuto.Interval := 70;
    fUpdaterAuto.OnTimer := @updaterAutoProc;
  