[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.39,1.40

[Nando D. <na...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25732/Core

Modified Files:
	InstantPersistence.pas 
Log Message:
Core support for database evolution; BeforeConnectionChange/AfterConnectionChange fixes

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -d -r1.39 -r1.40
*** InstantPersistence.pas	13 Jun 2005 01:04:09 -0000	1.39
--- InstantPersistence.pas	18 Jun 2005 09:46:35 -0000	1.40
***************
*** 61,65 ****
--- 61,68 ----
      function GetCollection: TInstantMetadatas;
      procedure SetCollection(Value: TInstantMetadatas); {$IFDEF D6+}reintroduce;{$ENDIF}
+   protected
+     function InternalEquals(const Other: TInstantMetadata): Boolean; virtual;
    public
+     function Equals(const Other: TInstantMetadata): Boolean;
      property Collection: TInstantMetadatas read GetCollection write SetCollection;
    end;
***************
[...1053 lines suppressed...]
+     [Description]);
+ end;
+ 
+ { TInstantCatalog }
+ 
+ constructor TInstantCatalog.Create(const AScheme: TInstantScheme);
+ begin
+   inherited Create;
+   FScheme := AScheme;
+ end;
+ 
+ { TInstantSQLBrokerCatalog }
+ 
+ function TInstantSQLBrokerCatalog.GetBroker: TInstantSQLBroker;
+ begin
+   Result := inherited Broker as TInstantSQLBroker;
+ end;
+ 
  initialization
    RegisterClasses([TInstantClassMetadatas, TInstantClassMetadata,