instantobjects-cvscommit

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

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

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

Index: Model.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Tests/Model.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Model.pas	20 Feb 2005 19:26:42 -0000	1.1
--- Model.pas	1 Mar 2005 05:38:26 -0000	1.2
***************
*** 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) externalstored 'Contact_Address';
      Category: Reference(TCategory);
--- 109,113 ----
  
    TContact = class(TInstantObject)
!   {IOMETADATA stored;
      Address: Part(TAddress) externalstored 'Contact_Address';
      Category: Reference(TCategory);
***************
*** 167,171 ****
  
    TPerson = class(TContact)
!   { IOMETADATA stored;
      BirthDate: DateTime;
      Emails: Parts(TEmail) externalstored 'Person_Email';
--- 167,171 ----
  
    TPerson = class(TContact)
!   {IOMETADATA stored;
      BirthDate: DateTime;
      Emails: Parts(TEmail) externalstored 'Person_Email';
***************
*** 212,216 ****
  
    TCompany = class(TContact)
!   { IOMETADATA stored;
      Employees: References(TPerson) externalstored 'Company_Employee'; }
      _Employees: TInstantReferences;
--- 212,216 ----
  
    TCompany = class(TContact)
!   {IOMETADATA stored;
      Employees: References(TPerson) externalstored 'Company_Employee'; }
      _Employees: TInstantReferences;