#10 Now using existance of PersistenceController

to determine if system is persistent for the purposes of fetching class list.
Embarcadero · May 14, 2021 · 270c209 · 270c209
1 parent 7f615b6
commit 270c209
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Source/ObjectSpace/BORepresentation/BoldObjectListControllers.pas b/Source/ObjectSpace/BORepresentation/BoldObjectListControllers.pas
@@ -572,7 +572,7 @@ procedure TBoldClassListController.MakeDbCurrent;
 var
  SourceList: TBoldObjectList;
 begin
- if ClassTypeinfo.Persistent and BoldSystem.BoldPersistent then
+ if ClassTypeinfo.Persistent and Assigned(BoldSystem.PersistenceController) then
  begin
  SourceList := ClosestLoadedClassList;