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