From: Nando D. <na...@us...> - 2005-03-01 05:38:35
|
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; |