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

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

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

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

Index: Model.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/Intro/Model.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Model.pas	10 Feb 2005 12:53:34 -0000	1.2
--- Model.pas	1 Mar 2005 05:37:11 -0000	1.3
***************
*** 8,12 ****
  type
    TAddress = class(TInstantObject)
!   { IOMETADATA City: String(30);
      PostalCode: String(8);
      Street: String(30); }
--- 8,12 ----
  type
    TAddress = class(TInstantObject)
!   {IOMETADATA City: String(30);
      PostalCode: String(8);
      Street: String(30); }
***************
*** 28,32 ****
  
    TPhone = class(TInstantObject)
!   { IOMETADATA Name: String(10);
      Number: String(10) mask '(999) 999-9999;0;_'; }
      _Name: TInstantString;
--- 28,32 ----
  
    TPhone = class(TInstantObject)
!   {IOMETADATA Name: String(10);
      Number: String(10) mask '(999) 999-9999;0;_'; }
      _Name: TInstantString;
***************
*** 43,47 ****
  
    TContact = class(TInstantObject)
!   { IOMETADATA stored;
      Address: Part(TAddress);
      Name: String(30);
--- 43,47 ----
  
    TContact = class(TInstantObject)
!   {IOMETADATA stored;
      Address: Part(TAddress);
      Name: String(30);
***************
*** 73,77 ****
  
    TPerson = class(TContact)
!   { IOMETADATA stored;
      DateOfBirth: DateTime; }
      _DateOfBirth: TInstantDateTime;
--- 73,77 ----
  
    TPerson = class(TContact)
!   {IOMETADATA stored;
      DateOfBirth: DateTime; }
      _DateOfBirth: TInstantDateTime;
***************
*** 84,88 ****
  
    TCompany = class(TContact)
!   { IOMETADATA stored;
      ContactPerson: Reference(TPerson); }
      _ContactPerson: TInstantReference;
--- 84,88 ----
  
    TCompany = class(TContact)
!   {IOMETADATA stored;
      ContactPerson: Reference(TPerson); }
      _ContactPerson: TInstantReference;