instantobjects-cvscommit

[Carlo B. <car...@us...>]

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

Modified Files:
	InstantConnectionManager.pas 
Log Message:
UIB broker: TInstantCurrency support added; OnLogin prompt; bug fixing

Index: InstantConnectionManager.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantConnectionManager.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** InstantConnectionManager.pas	1 Oct 2004 16:09:13 -0000	1.6
--- InstantConnectionManager.pas	3 Dec 2004 16:04:29 -0000	1.7
***************
*** 401,406 ****
        Application.ProcessMessages;
        Connector.BuildDatabase(Model);
!       DoPrepare(Connector);
!       Connector.Disconnect;
      finally
        Screen.Cursor := SaveCursor;
--- 401,410 ----
        Application.ProcessMessages;
        Connector.BuildDatabase(Model);
!       Connector.Connect;
!       Try
!         DoPrepare(Connector);
!       Finally
!         Connector.Disconnect;
!       End;  
      finally
        Screen.Cursor := SaveCursor;