anchor.diff:    hasEd: boolean;
     hasProj: boolean;
   begin
  +  Handled := true;
     if fEditWidg = nil then exit;
     if fUpdateCount > 0 then exit;
     Inc(fUpdateCount);
  
positive.code: begin
    inherited create(aOwner);
    fLogMessager := TCELogMessageSubject.create;
    //
    EntitiesConnector.addObserver(self);
    //
  
negative.code:     fRunProc: TCheckedAsyncProcess;
  
      fLogMessager: TCELogMessageSubject;
      fMainMenuSubj: TCEMainMenuSubject;
      procedure updateMainMenuProviders;
  
      // ICEMultiDocObserver
      procedure docNew(aDoc: TCESynMemo);
  