[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.43,1.44

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

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

Modified Files:
	InstantPersistence.pas 
Log Message:
support for altering indexes in database evolution

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.43
retrieving revision 1.44
diff -C2 -d -r1.43 -r1.44
*** InstantPersistence.pas	19 Jun 2005 08:31:59 -0000	1.43
--- InstantPersistence.pas	4 Jul 2005 11:33:21 -0000	1.44
***************
*** 1493,1496 ****
--- 1493,1499 ----
    end;
  
+   TInstantConnectorEvent = procedure(Sender: TObject;
+     Connector: TInstantConnector) of object;
+ 
    TInstantCacheNodeColor = (ncRed, ncBlack);
  
***************
*** 1630,1634 ****
  
    TInstantDBBuildCommandType = (ctAddTable, ctDropTable, ctAddField, ctAlterField,
!     ctDropField, ctAddIndex, ctDropIndex);
  
    EInstantDBBuildError = class(EInstantError);
--- 1633,1637 ----
  
    TInstantDBBuildCommandType = (ctAddTable, ctDropTable, ctAddField, ctAlterField,
!     ctDropField, ctAddIndex, ctAlterIndex, ctDropIndex);
  
    EInstantDBBuildError = class(EInstantError);
***************
*** 15170,15174 ****
    // depending on the CommandType.
    InstantDBBuildCommandEnabledDefaults: array[TInstantDBBuildCommandType] of Boolean =
!     (True, False, True, True, True, True, False);
  begin
    inherited Create;
--- 15173,15177 ----
    // depending on the CommandType.
    InstantDBBuildCommandEnabledDefaults: array[TInstantDBBuildCommandType] of Boolean =
!     (True, False, True, True, True, True, True, False);
  begin
    inherited Create;