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

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

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

Modified Files:
	Intro.mdr Model.pas 
Log Message:
Intro Demo updated for IOMETADATA keyword.

Index: Model.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/Intro/Model.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Model.pas	2 Feb 2004 20:55:16 -0000	1.1
--- Model.pas	10 Feb 2005 12:53:34 -0000	1.2
***************
*** 8,12 ****
  type
    TAddress = class(TInstantObject)
!   { 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)
!   { 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)
!   { 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)
!   { stored;
      DateOfBirth: DateTime; }
      _DateOfBirth: TInstantDateTime;
--- 73,77 ----
  
    TPerson = class(TContact)
!   { IOMETADATA stored;
      DateOfBirth: DateTime; }
      _DateOfBirth: TInstantDateTime;
***************
*** 84,88 ****
  
    TCompany = class(TContact)
!   { stored;
      ContactPerson: Reference(TPerson); }
      _ContactPerson: TInstantReference;
--- 84,88 ----
  
    TCompany = class(TContact)
!   { IOMETADATA stored;
      ContactPerson: Reference(TPerson); }
      _ContactPerson: TInstantReference;

Index: Intro.mdr
===================================================================
RCS file: /cvsroot/instantobjects/Demos/Intro/Intro.mdr,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
Binary files /tmp/cvsjtHCLA and /tmp/cvsdqLVtY differ