instantobjects-cvscommit

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

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

Modified Files:
	InstantConnectionManager.pas InstantPresentation.pas 
Log Message:
TInstantCustomExposer.writeproperty now is virtual - DoBuild method of ConnectionManager now is public

Index: InstantPresentation.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** InstantPresentation.pas	16 Sep 2004 11:47:51 -0000	1.6
--- InstantPresentation.pas	1 Oct 2004 16:09:13 -0000	1.7
***************
*** 374,378 ****
      procedure Undo; virtual;
      procedure UpdateCalcFields;
!     procedure WriteProperty(Field: TField; Instance: TObject; Value: Variant);
      function BreakThorough( const FieldName : string ) : boolean; virtual;
      property Accessor: TInstantAccessor read GetAccessor;
--- 374,378 ----
      procedure Undo; virtual;
      procedure UpdateCalcFields;
!     procedure WriteProperty(Field: TField; Instance: TObject; Value: Variant); virtual;
      function BreakThorough( const FieldName : string ) : boolean; virtual;
      property Accessor: TInstantAccessor read GetAccessor;

Index: InstantConnectionManager.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantConnectionManager.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** InstantConnectionManager.pas	4 Aug 2004 22:43:39 -0000	1.5
--- InstantConnectionManager.pas	1 Oct 2004 16:09:13 -0000	1.6
***************
*** 148,152 ****
      procedure Disconnect(ConnectionDef: TInstantConnectionDef);
      function Edit(ConnectionDef: TInstantConnectionDef): Boolean;
-     function DoBuild(ConnectionDef: TInstantConnectionDef): Boolean; virtual;
      function DoConnect(ConnectionDef: TInstantConnectionDef): Boolean; virtual;
      function DoDisconnect(ConnectionDef: TInstantConnectionDef): Boolean; virtual;
--- 148,151 ----
***************
*** 158,161 ****
--- 157,161 ----
      property ConnectionDefs: TInstantConnectionDefs read GetConnectionDefs;
    public
+     function DoBuild(ConnectionDef: TInstantConnectionDef): Boolean; virtual;
      property CurrentConnectionDef: TInstantConnectionDef read GetCurrentConnectionDef write SetCurrentConnectionDef;
      property FileName: string read GetFileName write SetFileName;