anchor.diff:    end;
   end;
   
  +procedure TEditorSession.SetInternalProject(const Value: TEditorProject);
  +begin
  +  FProject := Value;
  +end;
  +
   function TEditorSession.GetActive: Boolean;
   begin
  -  Result := Project is TDefaultProject;
  +  Result := (Project <> nil) and not (Project is TDefaultProject);
   end;
   
   procedure TEditorOptions.Show;
  
positive.code:   FCollectTimeout := 60;
    FMessagesHeight := 100;
    FFoldersWidth := 180;
    FPauseConsole := True;
  end;
  
  destructor TEditorOptions.Destroy;
  
negative.code:   {* Default project to use it when no project opened
    }
  
    { TDefaultProject }
  
    TDefaultProject = class sealed(TEditorProject)
    public
      destructor Destroy; override;
    end;
  
    { TDebugMarksPart }
  