anchor.diff:    EntitiesConnector.removeObserver(self);
     inherited;
   end;
  +
  +function TCEWidget.getIfModal: boolean;
  +begin
  +  if isDockable then result := false
  +  else result := fModal;
  +end;
  +
   {$ENDREGION}
   
   {$REGION ICESessionOptionsObserver ---------------------------------------------}
  
positive.code:     procedure optset_UpdaterDelay(aReader: TReader);
    protected
      fDockable: boolean;
      fID: string;
      // a descendant overrides to implementi a periodic update.
      procedure UpdateByLoop; virtual;
  
negative.code:     procedure sesoptBeforeSave; virtual;
      procedure sesoptDeclareProperties(aFiler: TFiler); virtual;
      procedure sesoptAfterLoad; virtual;
      //
      function getIfModal: boolean;
    published
      property updaterByLoopInterval: Integer read fLoopInter write setLoopInt;
      property updaterByDelayDuration: Integer read fDelayDur write setDelayDur;
  