[Instantobjects-cvscommit] Source/Brokers/UIB InstantUIB.pas,1.18,1.19

[Joao M. <jcm...@us...>]

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

Modified Files:
	InstantUIB.pas 
Log Message:
Changed Notification method of InstantUIBConnector, that is raising AV trying to disconnect UIBDatabase while it's being destroyed.

Index: InstantUIB.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIB.pas,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** InstantUIB.pas	22 Nov 2005 22:28:46 -0000	1.18
--- InstantUIB.pas	31 Dec 2005 12:12:17 -0000	1.19
***************
*** 22,26 ****
   *
   * Contributor(s):
!  * Carlo Barazzetta, Nando Dessena
   *
   * ***** END LICENSE BLOCK ***** *)
--- 22,26 ----
   *
   * Contributor(s):
!  * Carlo Barazzetta, Nando Dessena, Joao Morais
   *
   * ***** END LICENSE BLOCK ***** *)
***************
*** 362,366 ****
  begin
    if HasDataBase then
!     DataBase.Connected := False;
  end;
  
--- 362,366 ----
  begin
    if HasDataBase then
!     FDataBase.Connected := False;
  end;
  
***************
*** 370,377 ****
    inherited;
    if (AComponent = FDataBase) and (Operation = opRemove) then
-   begin
-     Disconnect;
      FDataBase := nil;
-   end;
  end;
  
--- 370,374 ----