+ Database class in TDBDataset is public, not published

fcl/db/db.pp

@@ -1145,7 +1145,7 @@ type
     Private
       FDatabase : TDatabase;
       Procedure SetDatabase (Value : TDatabase);
-    Published
+    Public
       Property DataBase : TDatabase Read FDatabase Write SetDatabase;
     end;
 
@@ -1459,7 +1459,10 @@ end.
 
 {
   $Log$
-  Revision 1.8  2003-05-08 21:52:41  michael
+  Revision 1.9  2003-05-15 15:15:15  michael
+  + Database class in TDBDataset is public, not published
+
+  Revision 1.8  2003/05/08 21:52:41  michael
   + Patch from Jesus Reyes
 
   Revision 1.7  2003/02/20 19:30:28  michael