[Instantobjects-cvscommit] Source/Brokers/UIB InstantUIB.pas,1.11,1.12

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

Update of /cvsroot/instantobjects/Source/Brokers/UIB
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8032/Brokers/UIB

Modified Files:
	InstantUIB.pas 
Log Message:
support for altering indexes in database evolution; fixed $I directive

Index: InstantUIB.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIB.pas,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** InstantUIB.pas	6 Jul 2005 01:27:23 -0000	1.11
--- InstantUIB.pas	13 Jul 2005 08:32:26 -0000	1.12
***************
*** 27,31 ****
  unit InstantUIB;
  
! {$I ../../../Core/InstantDefines.inc}
  
  {$IFDEF D7+}
--- 27,31 ----
  unit InstantUIB;
  
! {$I ../../Core/InstantDefines.inc}
  
  {$IFDEF D7+}
***************
*** 514,517 ****
--- 514,519 ----
    else if CommandType = ctAddIndex then
      Result := TInstantDBBuildAddIndexSQLCommand.Create(CommandType, Connector)
+   else if CommandType = ctAlterIndex then
+     Result := TInstantDBBuildAlterIndexSQLCommand.Create(CommandType, Connector)
    else if CommandType = ctDropIndex then
      Result := TInstantDBBuildDropIndexSQLCommand.Create(CommandType, Connector)