anchor.diff:      // not used yet: the active project is now aProject
       procedure projFocused(const aProject: TCEProject);
     end;
  -
     (**
      * An implementer informs some ICEProjectObserver about the current project(s)
      *)
  
positive.code:    procedure subjSesOptsDeclareProperties(aSubject: TCESessionOptionsSubject; aFiler: TFiler);{$IFDEF RELEASE}inline;{$ENDIF}
     procedure subjSesOptsAfterLoad(aSubject: TCESessionOptionsSubject);                        {$IFDEF RELEASE}inline;{$ENDIF}
  
  implementation
  
  {$REGION TCEMultiDocSubject-----------------------------------------------------}
  
negative.code: end;
  {$ENDREGION}
  
  {$REGION TCESessionOptionsSubject-----------------------------------------------}
  function TCESessionOptionsSubject.acceptObserver(aObject: TObject): boolean;
  begin
    exit(aObject is ICESessionOptionsObserver);
  