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

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

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

Modified Files:
	Model.pas 
Log Message:
fixed incorrect spacing of the IOMETADATA keyword

Index: Model.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/ModelExternal/Model.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Model.pas	18 Feb 2005 15:35:27 -0000	1.3
--- Model.pas	1 Mar 2005 05:37:44 -0000	1.4
***************
*** 23,27 ****
  
    TAddress = class(TInstantObject)
!   { IOMETADATA stored;
      City: String(30) index;
      Country: Reference(TCountry);
--- 23,27 ----
  
    TAddress = class(TInstantObject)
!   {IOMETADATA stored;
      City: String(30) index;
      Country: Reference(TCountry);
***************
*** 54,58 ****
  
    TCountry = class(TInstantObject)
!   { IOMETADATA stored;
      Name: String(30); }
      _Name: TInstantString;
--- 54,58 ----
  
    TCountry = class(TInstantObject)
!   {IOMETADATA stored;
      Name: String(30); }
      _Name: TInstantString;
***************
*** 69,73 ****
  
    TPhone = class(TInstantObject)
!   { IOMETADATA stored;
      Name: String(20);
      Number: String(20) mask '(000) 000-0000;0;_'; }
--- 69,73 ----
  
    TPhone = class(TInstantObject)
!   {IOMETADATA stored;
      Name: String(20);
      Number: String(20) mask '(000) 000-0000;0;_'; }
***************
*** 85,89 ****
  
    TEmail = class(TInstantObject)
!   { IOMETADATA stored;
      Address: String(100); }
      _Address: TInstantString;
--- 85,89 ----
  
    TEmail = class(TInstantObject)
!   {IOMETADATA stored;
      Address: String(100); }
      _Address: TInstantString;
***************
*** 96,100 ****
  
    TCategory = class(TInstantObject)
!   { IOMETADATA stored;
      Name: String(30); }
      _Name: TInstantString;
--- 96,100 ----
  
    TCategory = class(TInstantObject)
!   {IOMETADATA stored;
      Name: String(30); }
      _Name: TInstantString;
***************
*** 109,113 ****
  
    TContact = class(TInstantObject)
!   { IOMETADATA stored;
      Address: Part(TAddress) external;
      Category: Reference(TCategory);
--- 109,113 ----
  
    TContact = class(TInstantObject)
!   {IOMETADATA stored;
      Address: Part(TAddress) external;
      Category: Reference(TCategory);
***************
*** 212,216 ****
  
    TCompany = class(TContact)
!   { IOMETADATA stored;
      Employees: References(TPerson) external 'Company_Employees'; }
      _Employees: TInstantReferences;
--- 212,216 ----
  
    TCompany = class(TContact)
!   {IOMETADATA stored;
      Employees: References(TPerson) external 'Company_Employees'; }
      _Employees: TInstantReferences;