#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;