[Instantobjects-cvscommit] Demos/PrimerCross/ModelExternal Model.pas,1.2,1.3

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

Update of /cvsroot/instantobjects/Demos/PrimerCross/ModelExternal
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29447/PrimerCross/ModelExternal

Modified Files:
	Model.pas 
Log Message:
External storage unification & refactoring - updated PrimerExternal

Index: Model.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/ModelExternal/Model.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Model.pas	18 Feb 2005 11:04:08 -0000	1.2
--- Model.pas	18 Feb 2005 15:35:27 -0000	1.3
***************
*** 110,118 ****
    TContact = class(TInstantObject)
    { IOMETADATA stored;
!     Address: Part(TAddress) externalstored 'Contact_Address';
      Category: Reference(TCategory);
      City: String(30) index;
      Name: String(50) index;
!     Phones: Parts(TPhone) externalstored 'Contact_Phone'; }
      _Address: TInstantPart;
      _Category: TInstantReference;
--- 110,118 ----
    TContact = class(TInstantObject)
    { IOMETADATA stored;
!     Address: Part(TAddress) external;
      Category: Reference(TCategory);
      City: String(30) index;
      Name: String(50) index;
!     Phones: Parts(TPhone) external 'Contact_Phones'; }
      _Address: TInstantPart;
      _Category: TInstantReference;
***************
*** 169,173 ****
    {IOMETADATA stored;
      BirthDate: DateTime;
!     Emails: Parts(TEmail) externalstored 'Person_Email';
      Employer: Reference(TCompany);
      Picture: Graphic;
--- 169,173 ----
    {IOMETADATA stored;
      BirthDate: DateTime;
!     Emails: Parts(TEmail) external 'Person_Emails';
      Employer: Reference(TCompany);
      Picture: Graphic;
***************
*** 213,217 ****
    TCompany = class(TContact)
    { IOMETADATA stored;
!     Employees: References(TPerson) externalstored 'Company_Employee'; }
      _Employees: TInstantReferences;
    private
--- 213,217 ----
    TCompany = class(TContact)
    { IOMETADATA stored;
!     Employees: References(TPerson) external 'Company_Employees'; }
      _Employees: TInstantReferences;
    private