instantobjects-cvscommit

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

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

Modified Files:
	Model.pas 
Log Message:


Index: Model.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Model.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Model.pas	29 Jul 2004 20:43:09 -0000	1.2
--- Model.pas	18 Nov 2004 13:35:57 -0000	1.3
***************
*** 18,22 ****
  
    TAddress = class(TInstantObject)
!   { City: String(30) index;
      Country: Reference(TCountry);
      State: String(4);
--- 18,22 ----
  
    TAddress = class(TInstantObject)
!   { IOMETADATA City: String(30) index;
      Country: Reference(TCountry);
      State: String(4);
***************
*** 48,52 ****
  
    TCountry = class(TInstantObject)
!   { stored;
      Name: String(30); }
      _Name: TInstantString;
--- 48,52 ----
  
    TCountry = class(TInstantObject)
!   { IOMETADATA stored;
      Name: String(30); }
      _Name: TInstantString;
***************
*** 63,67 ****
  
    TPhone = class(TInstantObject)
!   { Name: String(20);
      Number: String(20) mask '(000) 000-0000;0;_'; }
      _Name: TInstantString;
--- 63,67 ----
  
    TPhone = class(TInstantObject)
!   { IOMETADATA Name: String(20);
      Number: String(20) mask '(000) 000-0000;0;_'; }
      _Name: TInstantString;
***************
*** 78,82 ****
  
    TEmail = class(TInstantObject)
!   { Address: String(100); }
      _Address: TInstantString;
    private
--- 78,82 ----
  
    TEmail = class(TInstantObject)
!   { IOMETADATA Address: String(100); }
      _Address: TInstantString;
    private
***************
*** 88,92 ****
  
    TCategory = class(TInstantObject)
!   { stored;
      Name: String(30); }
      _Name: TInstantString;
--- 88,92 ----
  
    TCategory = class(TInstantObject)
!   { IOMETADATA stored;
      Name: String(30); }
      _Name: TInstantString;
***************
*** 101,105 ****
  
    TContact = class(TInstantObject)
!   { stored;
      Address: Part(TAddress);
      Category: Reference(TCategory);
--- 101,105 ----
  
    TContact = class(TInstantObject)
!   { IOMETADATA stored;
      Address: Part(TAddress);
      Category: Reference(TCategory);
***************
*** 159,163 ****
  
    TPerson = class(TContact)
!   { stored;
      BirthDate: DateTime;
      Emails: Parts(TEmail);
--- 159,163 ----
  
    TPerson = class(TContact)
!   { IOMETADATA stored;
      BirthDate: DateTime;
      Emails: Parts(TEmail);
***************
*** 204,208 ****
  
    TCompany = class(TContact)
!   { stored;
      Employees: References(TPerson); }
      _Employees: TInstantReferences;
--- 204,208 ----
  
    TCompany = class(TContact)
!   { IOMETADATA stored;
      Employees: References(TPerson); }
      _Employees: TInstantReferences;